Generate and return the Inverse (normalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind type parameter. More...

Detailed Description

Generate and return the Inverse (normalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind type parameter.

See the documentation of setFFTI for more details.

Parameters

[in]

data

: The input contiguous vector of arbitrary size of,

type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128),
type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128),

containing the periodic sequence whose FFT is to be computed.

Returns: fft : The output vector of the same type, kind, and size as the input data, containing the FFT result.

Possible calling interfaces ⛓

: use pm_fftpack, only: getFFTI

fft = getFFTI(data(:))

pm_fftpack::getFFTI
Generate and return the Inverse (normalized) Fourier Transform of a periodic sequence of type complex...
Definition: pm_fftpack.F90:1567

pm_fftpack
This module contains procedures and generic interfaces for computing the Discrete Fourier Transform o...
Definition: pm_fftpack.F90:205

Remarks: The procedures under discussion are impure.

Note: This functional generic interface is simply a more flexible but slower wrapper around the subroutine generic interface setFFTR.
As such, this functional interface can be significantly slower than the corresponding subroutine interface.

See also: getFFTF
getFFTR
getFFTI
setFFTF
setFFTR
setFFTI

Example usage ⛓

: 1program example

2

3 use pm_kind, only: SK, IK, LK

4 use pm_io, only: display_type

5 use pm_fftpack, only: getfactorFFT

6 use pm_fftpack, only: getFFTF, getFFTI

7 use pm_distUnif, only: getUnifRand

8 use pm_mathCompare, only: isClose

9 use pm_err, only: setAsserted

10

11 implicit none

12

13 integer(IK) :: i

14 integer(IK) :: lenData

15 type(display_type) :: disp

16 disp = display_type(file = "main.out.F90")

17

18 do i = 1, 5

19 block

20 use pm_kind, only: TKC => CK32

21 real(TKC) :: reltol

22 complex(TKC), allocatable :: data(:), adat(:)

23 call disp%show("lenData = getUnifRand(5, 100)")

24 lenData = getUnifRand(5, 100)

25 call disp%show("lenData")

26 call disp%show( lenData )

27 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

28 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

29 call disp%show("data")

30 call disp%show( data )

31 call disp%skip()

32 call disp%show("adat = getFFTI(getFFTF(data))")

33 adat = getFFTI(getFFTF(data))

34 call disp%show("adat")

35 call disp%show( adat )

36 call disp%show("reltol = sqrt(epsilon(1._TKC))")

37 reltol = sqrt(epsilon(1._TKC))

38 call disp%show("reltol")

39 call disp%show( reltol )

40 call disp%show("isClose(data, adat, reltol = reltol)")

41 call disp%show( isClose(data, adat, reltol = reltol) )

42 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

43 call setAsserted(all(isClose(data, adat, reltol = reltol)))

44 call disp%skip()

45 end block

46

47 block

48 use pm_kind, only: TKC => CK64

49 real(TKC) :: reltol

50 complex(TKC), allocatable :: data(:), adat(:)

51 call disp%show("lenData = getUnifRand(5, 100)")

52 lenData = getUnifRand(5, 100)

53 call disp%show("lenData")

54 call disp%show( lenData )

55 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

56 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

57 call disp%show("data")

58 call disp%show( data )

59 call disp%skip()

60 call disp%show("adat = getFFTI(getFFTF(data))")

61 adat = getFFTI(getFFTF(data))

62 call disp%show("adat")

63 call disp%show( adat )

64 call disp%show("reltol = sqrt(epsilon(1._TKC))")

65 reltol = sqrt(epsilon(1._TKC))

66 call disp%show("reltol")

67 call disp%show( reltol )

68 call disp%show("isClose(data, adat, reltol = reltol)")

69 call disp%show( isClose(data, adat, reltol = reltol) )

70 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

71 call setAsserted(all(isClose(data, adat, reltol = reltol)))

72 call disp%skip()

73 end block

74

75 block

76 use pm_kind, only: TKC => CK128

77 real(TKC) :: reltol

78 complex(TKC), allocatable :: data(:), adat(:)

79 call disp%show("lenData = getUnifRand(5, 100)")

80 lenData = getUnifRand(5, 100)

81 call disp%show("lenData")

82 call disp%show( lenData )

83 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

84 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

85 call disp%show("data")

86 call disp%show( data )

87 call disp%skip()

88 call disp%show("adat = getFFTI(getFFTF(data))")

89 adat = getFFTI(getFFTF(data))

90 call disp%show("adat")

91 call disp%show( adat )

92 call disp%show("reltol = sqrt(epsilon(1._TKC))")

93 reltol = sqrt(epsilon(1._TKC))

94 call disp%show("reltol")

95 call disp%show( reltol )

96 call disp%show("isClose(data, adat, reltol = reltol)")

97 call disp%show( isClose(data, adat, reltol = reltol) )

98 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

99 call setAsserted(all(isClose(data, adat, reltol = reltol)))

100 call disp%skip()

101 end block

102

103 block

104 use pm_kind, only: TKC => RK32

105 real(TKC) :: reltol

106 real(TKC), allocatable :: data(:), adat(:)

107 call disp%show("lenData = getUnifRand(5, 100)")

108 lenData = getUnifRand(5, 100)

109 call disp%show("lenData")

110 call disp%show( lenData )

111 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

112 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

113 call disp%show("data")

114 call disp%show( data )

115 call disp%skip()

116 call disp%show("adat = getFFTI(getFFTF(data))")

117 adat = getFFTI(getFFTF(data))

118 call disp%show("adat")

119 call disp%show( adat )

120 call disp%show("reltol = sqrt(epsilon(1._TKC))")

121 reltol = sqrt(epsilon(1._TKC))

122 call disp%show("reltol")

123 call disp%show( reltol )

124 call disp%show("isClose(data, adat, reltol = reltol)")

125 call disp%show( isClose(data, adat, reltol = reltol) )

126 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

127 call setAsserted(all(isClose(data, adat, reltol = reltol)))

128 call disp%skip()

129 end block

130

131 block

132 use pm_kind, only: TKC => RK64

133 real(TKC) :: reltol

134 real(TKC), allocatable :: data(:), adat(:)

135 call disp%show("lenData = getUnifRand(5, 100)")

136 lenData = getUnifRand(5, 100)

137 call disp%show("lenData")

138 call disp%show( lenData )

139 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

140 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

141 call disp%show("data")

142 call disp%show( data )

143 call disp%skip()

144 call disp%show("adat = getFFTI(getFFTF(data))")

145 adat = getFFTI(getFFTF(data))

146 call disp%show("adat")

147 call disp%show( adat )

148 call disp%show("reltol = sqrt(epsilon(1._TKC))")

149 reltol = sqrt(epsilon(1._TKC))

150 call disp%show("reltol")

151 call disp%show( reltol )

152 call disp%show("isClose(data, adat, reltol = reltol)")

153 call disp%show( isClose(data, adat, reltol = reltol) )

154 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

155 call setAsserted(all(isClose(data, adat, reltol = reltol)))

156 call disp%skip()

157 end block

158

159 block

160 use pm_kind, only: TKC => RK128

161 real(TKC) :: reltol

162 real(TKC), allocatable :: data(:), adat(:)

163 call disp%show("lenData = getUnifRand(5, 100)")

164 lenData = getUnifRand(5, 100)

165 call disp%show("lenData")

166 call disp%show( lenData )

167 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

168 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

169 call disp%show("data")

170 call disp%show( data )

171 call disp%skip()

172 call disp%show("adat = getFFTI(getFFTF(data))")

173 adat = getFFTI(getFFTF(data))

174 call disp%show("adat")

175 call disp%show( adat )

176 call disp%show("reltol = sqrt(epsilon(1._TKC))")

177 reltol = sqrt(epsilon(1._TKC))

178 call disp%show("reltol")

179 call disp%show( reltol )

180 call disp%show("isClose(data, adat, reltol = reltol)")

181 call disp%show( isClose(data, adat, reltol = reltol) )

182 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

183 call setAsserted(all(isClose(data, adat, reltol = reltol)))

184 call disp%skip()

185 end block

186 end do

187

188end program example

pm_distUnif::getUnifRand
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Definition: pm_distUnif.F90:4106

pm_err::setAsserted
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Definition: pm_err.F90:735

pm_err::show
Generate and return an object of type stop_type with the user-specified input attributes.
Definition: pm_err.F90:1617

pm_fftpack::getFFTF
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Definition: pm_fftpack.F90:746

pm_io::skip
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11074

pm_mathCompare::isClose
Generate and return .true. if the two input values are sufficiently close to each other within the sp...
Definition: pm_mathCompare.F90:523

pm_distUnif
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distUnif.F90:274

pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52

pm_io
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252

pm_io::disp
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:10962

pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:28

pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:281

pm_kind::RK32
integer, parameter RK32
The real kind for a 32-bits container.
Definition: pm_kind.F90:294

pm_kind::CK64
integer, parameter CK64
The complex kind for a 64-bits container.
Definition: pm_kind.F90:290

pm_kind::CK128
integer, parameter CK128
The complex kind for a 128-bits container.
Definition: pm_kind.F90:289

pm_kind::CK32
integer, parameter CK32
The complex kind for a 32-bits container.
Definition: pm_kind.F90:291

pm_kind::RK64
integer, parameter RK64
The real kind for a 64-bits container.
Definition: pm_kind.F90:293

pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:280

pm_kind::RK128
integer, parameter RK128
The real kind for a 128-bits container.
Definition: pm_kind.F90:292

pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:279

pm_mathCompare
This module contains the procedures and interfaces for evaluating the relative or absolute proximity ...
Definition: pm_mathCompare.F90:205

pm_io::display_type
Generate and return an object of type display_type.
Definition: pm_io.F90:10228

Example Unix compile command via Intel ifort compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte_fortran_*_intel* -o main.exe

4./main.exe

Example Windows Batch compile command via Intel ifort compiler ⛓
1del main.exe

2set PATH=..\..\..\lib;%PATH%

3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte_fortran_*_intel*.lib /exe:main.exe

4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte_fortran_*_gnu* -o main.exe

4./main.exe

Example output ⛓
1lenData = getUnifRand(5, 100)

2lenData

3+8

4data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

5data

6(+1.24122703, +0.914067090), (+1.28181577, +0.491188705), (+1.81996250, +0.170698047), (+1.18990278, +0.518341541), (+1.18379569, +0.143940628), (+1.95947373, +0.764713049), (+1.16663122, +0.507410169E-1), (+1.35772884, +0.934712529)

7

8adat = getFFTI(getFFTF(data))

9adat

10(+1.24122691, +0.914067090), (+1.28181577, +0.491188735), (+1.81996250, +0.170698047), (+1.18990278, +0.518341482), (+1.18379569, +0.143940628), (+1.95947385, +0.764713049), (+1.16663122, +0.507410690E-1), (+1.35772896, +0.934712470)

11reltol = sqrt(epsilon(1._TKC))

12reltol

13+0.345266977E-3

14isClose(data, adat, reltol = reltol)

15T, T, T, T, T, T, T, T

16call setAsserted(all(isClose(data, adat, reltol = reltol)))

17

18lenData = getUnifRand(5, 100)

19lenData

20+29

21data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

22data

23(+1.3605676987551818, +0.77437112193451851), (+1.0413909944072930, +0.24480076387242000), (+1.8850753642940161, +0.39509772661374876), (+1.9678043687548410, +0.70329087886128805), (+1.8327219314909282, +0.19380099291592168), (+1.4711796717069530, +0.94769802854898610), (+1.6496305277141419, +0.97593368347356868), (+1.9834458620641808, +0.20231811373782438), (+1.4069602841295250, +0.48959938583539608), (+1.9740047824956897, +0.89563215217382586), (+1.1621217596115010, +0.47446926010846313), (+1.5717403892321595, +0.86059720391438255), (+1.6558986828625155, +0.71202369679006527), (+1.4946251662486265, +0.66345370854572094), (+1.8088822154685729, +0.70358134245035342E-1), (+1.5912813232332030, +0.84255577840959295), (+1.4096056107652510, +0.72853567420874954), (+1.6793522313631450, +0.14008701907320054), (+1.3019418135679044, +0.73169847511327279), (+1.5093439076615764, +0.64013898844622619), (+1.1455647928616166, +0.92235673474124180), (+1.6719248833321299, +0.50688972027705836), (+1.9967246042643783, +0.78931060213070758), (+1.8096831306115004, +0.71152689361956600), (+1.5029051943512408, +0.38207262699550670), (+1.5603704467001323, +0.34088122357761930), (+1.9753409638558306, +0.29821337761993960), (+1.4204464234277299, +0.78288485703724631), (+1.3938621985981059, +0.48418580395772104)

24

25adat = getFFTI(getFFTF(data))

26adat

27(+1.3605676987551829, +0.77437112193451907), (+1.0413909944072925, +0.24480076387241997), (+1.8850753642940170, +0.39509772661374870), (+1.9678043687548412, +0.70329087886128794), (+1.8327219314909287, +0.19380099291592176), (+1.4711796717069534, +0.94769802854898599), (+1.6496305277141419, +0.97593368347356879), (+1.9834458620641815, +0.20231811373782418), (+1.4069602841295243, +0.48959938583539581), (+1.9740047824956897, +0.89563215217382586), (+1.1621217596115012, +0.47446926010846308), (+1.5717403892321598, +0.86059720391438277), (+1.6558986828625157, +0.71202369679006527), (+1.4946251662486267, +0.66345370854572128), (+1.8088822154685731, +0.70358134245035592E-1), (+1.5912813232332030, +0.84255577840959295), (+1.4096056107652515, +0.72853567420874954), (+1.6793522313631448, +0.14008701907320073), (+1.3019418135679046, +0.73169847511327302), (+1.5093439076615764, +0.64013898844622630), (+1.1455647928616166, +0.92235673474124169), (+1.6719248833321292, +0.50688972027705792), (+1.9967246042643787, +0.78931060213070725), (+1.8096831306115007, +0.71152689361956623), (+1.5029051943512413, +0.38207262699550670), (+1.5603704467001331, +0.34088122357761930), (+1.9753409638558312, +0.29821337761993955), (+1.4204464234277310, +0.78288485703724597), (+1.3938621985981055, +0.48418580395772082)

28reltol = sqrt(epsilon(1._TKC))

29reltol

30+0.14901161193847656E-7

31isClose(data, adat, reltol = reltol)

32T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

33call setAsserted(all(isClose(data, adat, reltol = reltol)))

34

35lenData = getUnifRand(5, 100)

36lenData

37+65

38data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

39data

40(+1.55049855983632983778740256131144040, +0.911164815189999846309490378637647825), (+1.10086797525296190324004139131397201, +0.917967287687084021466592257945109478), (+1.57558402232541447485683830167209160, +0.449441078524817796687613420900485366), (+1.60170290263990062317377261763405040, +0.664593449700575594628888226654958199), (+1.44220508509628319159650149599554602, +0.275781705857711559151780963222900259), (+1.38631935911824076418758525645672852, +0.940845060991961247137990184607416113), (+1.28031825920069399183856130943418785, +0.475786595547244581268747076596049479), (+1.16666768306983307568638036508599600, +0.525140269953577926946590063826137960), (+1.32272490235196509202972537211733587, +0.563075240710799621067366576581246936), (+1.49366335051330717403356705694529823, +0.232440133309589104523674657319791524), (+1.86242333493930440635595347871370704, +0.581867836039251859986700524964824065), (+1.61068021326947527581980808362296844, +0.597399794033850147518063754551155223), (+1.23556219407939882009124395549093070, +0.214393452973306241801401835614131035), (+1.08118286277961094219032371597762847, +0.745451864229854836531089906846917623), (+1.86773601600100652380236885322466535, +0.664659630033077673499212928026966387), (+1.23689938514462941249016010349142839, +0.687726827105577991773218719755215058), (+1.33206756128907063307121186049199909, +0.422202328856305664492145598494380804), (+1.42642551965924263491391931999965601, +0.279500472048986391889759422567498876), (+1.30239904235800749622206054343427548, +0.755683129288450351346719703800160142), (+1.19042570753490077753616141189503743, +0.181110733350026226483366643602417118), (+1.96785718362023158474275281457612400, +0.519706713326171588635158670617779334), (+1.87453690848724008032985041477322304, +0.959189768647203030080558730164726223E-1), (+1.39267696473458915615088373588989326, +0.293331950284061136066214276868276517), (+1.05205311572719393169900352033932566, +0.495737316995208948150597119464794514), (+1.80448641226364324517508592922856045, +0.525663704286739704674661471537616453), (+1.66537065844858759433263558407258584, +0.716980516214334358823112645931378563), (+1.75900715638207885372234154414856126, +0.925969553410483037868390983417137934), (+1.18727989621404858347089103946830480, +0.461853779772082736069173179999088863), (+1.86434717630610818799904183382677325, +0.226312395173497364026275217226348843), (+1.99041743312199382387225468144445115, +0.316081017883427199475650938484351893), (+1.81019436232486632734967434384486807, +0.285705391658956187585715935600491606), (+1.16170336944471569036503130471562209, +0.822674953581666784141987096524161105), (+1.63767583334729855082888549282551232, +0.978188494650697963298833788084829854), (+1.27946102097800058737805173774161514, +0.381102575453562878820705895598227015), (+1.20519466552873177327726262924082070, +0.741760870821578327678226321216421839), (+1.53336630554924081005524642840065013, +0.800891928047280709301011539640939246), (+1.37540900087083152000194574683686332, +0.302890061203937376198935491084001246), (+1.35276262188137015891263595210740188, +0.584551514853682803959441836977144396), (+1.29096069836068114420376741590752171, +0.710271971982478808463447854237572077), (+1.03368963169532757998669283008609993, +0.352833214338624614629978632312446403), (+1.67718388249484888478253638366930649, +0.179108714603377398770088210370808616), (+1.61043582392313735709233376437470208, +0.621900202418463709907388405153466804E-1), (+1.13020647997706448749636812074514695, +0.399987658959745812066747800551855928), (+1.54746740326623818802488298400855194, +0.688737793981973518533668063518461312), (+1.29868333168373009827499720775816881, +0.128884374697531123221737644764180518), (+1.20562823537754059402796968391610283, +0.417429087531964672659842424995704497), (+1.80437995255159227007324100682205918, +0.175625920274940096024255850647090074E-1), (+1.03010579318457460742412850333604288, +0.517769391817836734924541754060584295), (+1.00273873156191133983121348171498556, +0.395270741203555979335009599536841967), (+1.08066891035193270178603889534958676, +0.955138894911077739987683140383714633), (+1.36746954994916543266936271884477720, +0.583179639877799593243246854685674495), (+1.16360915745868877204061742954262435, +0.464688458923446409957620423448108464), (+1.09633950757988558948401600645855100, +0.111335947991772743564448475388094769), (+1.04674821603820310000286647567873023, +0.706552620440281777520904837146745432), (+1.71779731450354580131046211834966340, +0.774559516189701071182608784686472033), (+1.35035350895269407725775443756197851, +0.519496645420355529741288576690825691), (+1.74357017695373434626170020388774503, +0.266190215046127094330993643839005156), (+1.98564490281602341129090290537466498, +0.806731344015643458875555999693270046), (+1.38506678570432312252315415358914160, +0.736514068307106964748092489456693211), (+1.20739943814795051340726612806635536, +0.195373194469981635068410313722874640), (+1.26681630745607428919355133277673874, +0.364312046288797000991777978163513976), (+1.70074209208047729754595156609736330, +0.252290004707966910008613404370023531), (+1.73892099702099359829931250302678346, +0.392490048773247349103942357861545331), (+1.02059556353867810938635165513247722, +0.772532553228923869880876726664772683), (+1.53272935697427182916370945963449509, +0.636031509545834711145151987464058134)

41

42adat = getFFTI(getFFTF(data))

43adat

44(+1.55049855983632983778740256131143944, +0.911164815189999846309490378637647632), (+1.10086797525296190324004139131397221, +0.917967287687084021466592257945109767), (+1.57558402232541447485683830167209160, +0.449441078524817796687613420900485222), (+1.60170290263990062317377261763405059, +0.664593449700575594628888226654958295), (+1.44220508509628319159650149599554582, +0.275781705857711559151780963222900162), (+1.38631935911824076418758525645672871, +0.940845060991961247137990184607416113), (+1.28031825920069399183856130943418689, +0.475786595547244581268747076596049239), (+1.16666768306983307568638036508599484, +0.525140269953577926946590063826137768), (+1.32272490235196509202972537211733587, +0.563075240710799621067366576581246743), (+1.49366335051330717403356705694529804, +0.232440133309589104523674657319791355), (+1.86242333493930440635595347871370704, +0.581867836039251859986700524964824257), (+1.61068021326947527581980808362296825, +0.597399794033850147518063754551155223), (+1.23556219407939882009124395549093032, +0.214393452973306241801401835614131083), (+1.08118286277961094219032371597762731, +0.745451864229854836531089906846917430), (+1.86773601600100652380236885322466612, +0.664659630033077673499212928026966579), (+1.23689938514462941249016010349142820, +0.687726827105577991773218719755215443), (+1.33206756128907063307121186049199909, +0.422202328856305664492145598494381044), (+1.42642551965924263491391931999965524, +0.279500472048986391889759422567498876), (+1.30239904235800749622206054343427567, +0.755683129288450351346719703800160142), (+1.19042570753490077753616141189503647, +0.181110733350026226483366643602417046), (+1.96785718362023158474275281457612342, +0.519706713326171588635158670617779334), (+1.87453690848724008032985041477322323, +0.959189768647203030080558730164726223E-1), (+1.39267696473458915615088373588989287, +0.293331950284061136066214276868276180), (+1.05205311572719393169900352033932566, +0.495737316995208948150597119464794610), (+1.80448641226364324517508592922856045, +0.525663704286739704674661471537616646), (+1.66537065844858759433263558407258622, +0.716980516214334358823112645931378851), (+1.75900715638207885372234154414856030, +0.925969553410483037868390983417137838), (+1.18727989621404858347089103946830480, +0.461853779772082736069173179999088863), (+1.86434717630610818799904183382677363, +0.226312395173497364026275217226348891), (+1.99041743312199382387225468144445134, +0.316081017883427199475650938484351893), (+1.81019436232486632734967434384486768, +0.285705391658956187585715935600491461), (+1.16170336944471569036503130471562189, +0.822674953581666784141987096524161394), (+1.63767583334729855082888549282551155, +0.978188494650697963298833788084829758), (+1.27946102097800058737805173774161456, +0.381102575453562878820705895598226630), (+1.20519466552873177327726262924082109, +0.741760870821578327678226321216421935), (+1.53336630554924081005524642840064955, +0.800891928047280709301011539640939342), (+1.37540900087083152000194574683686351, +0.302890061203937376198935491084001439), (+1.35276262188137015891263595210740130, +0.584551514853682803959441836977144107), (+1.29096069836068114420376741590752209, +0.710271971982478808463447854237572462), (+1.03368963169532757998669283008609916, +0.352833214338624614629978632312445969), (+1.67718388249484888478253638366930668, +0.179108714603377398770088210370808736), (+1.61043582392313735709233376437470227, +0.621900202418463709907388405153465961E-1), (+1.13020647997706448749636812074514676, +0.399987658959745812066747800551855880), (+1.54746740326623818802488298400855155, +0.688737793981973518533668063518461119), (+1.29868333168373009827499720775816862, +0.128884374697531123221737644764180446), (+1.20562823537754059402796968391610206, +0.417429087531964672659842424995704545), (+1.80437995255159227007324100682205841, +0.175625920274940096024255850647088359E-1), (+1.03010579318457460742412850333604288, +0.517769391817836734924541754060584103), (+1.00273873156191133983121348171498537, +0.395270741203555979335009599536841919), (+1.08066891035193270178603889534958695, +0.955138894911077739987683140383715018), (+1.36746954994916543266936271884477682, +0.583179639877799593243246854685674688), (+1.16360915745868877204061742954262435, +0.464688458923446409957620423448108753), (+1.09633950757988558948401600645854946, +0.111335947991772743564448475388094516), (+1.04674821603820310000286647567873061, +0.706552620440281777520904837146745818), (+1.71779731450354580131046211834966321, +0.774559516189701071182608784686472226), (+1.35035350895269407725775443756197851, +0.519496645420355529741288576690825691), (+1.74357017695373434626170020388774523, +0.266190215046127094330993643839005205), (+1.98564490281602341129090290537466479, +0.806731344015643458875555999693270046), (+1.38506678570432312252315415358914083, +0.736514068307106964748092489456693115), (+1.20739943814795051340726612806635459, +0.195373194469981635068410313722874448), (+1.26681630745607428919355133277673932, +0.364312046288797000991777978163514024), (+1.70074209208047729754595156609736292, +0.252290004707966910008613404370023675), (+1.73892099702099359829931250302678327, +0.392490048773247349103942357861545283), (+1.02059556353867810938635165513247702, +0.772532553228923869880876726664772780), (+1.53272935697427182916370945963449548, +0.636031509545834711145151987464058519)

45reltol = sqrt(epsilon(1._TKC))

46reltol

47+0.138777878078144567552953958511352539E-16

48isClose(data, adat, reltol = reltol)

49T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

50call setAsserted(all(isClose(data, adat, reltol = reltol)))

51

52lenData = getUnifRand(5, 100)

53lenData

54+11

55data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

56data

57+1.78783298, +1.29141295, +1.79870391, +1.96251011, +1.59237039, +1.85669231, +1.73968267, +1.51864815, +1.26674485, +1.57136142, +1.35022521

58

59adat = getFFTI(getFFTF(data))

60adat

61+1.78783298, +1.29141343, +1.79870367, +1.96250987, +1.59237015, +1.85669279, +1.73968315, +1.51864803, +1.26674485, +1.57136118, +1.35022569

62reltol = sqrt(epsilon(1._TKC))

63reltol

64+0.345266977E-3

65isClose(data, adat, reltol = reltol)

66T, T, T, T, T, T, T, T, T, T, T

67call setAsserted(all(isClose(data, adat, reltol = reltol)))

68

69lenData = getUnifRand(5, 100)

70lenData

71+95

72data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

73data

74+1.0618460048231806, +1.3468523490844064, +1.7555100858059320, +1.2004858775740246, +1.3636212875017235, +1.8481034729161396, +1.6216558102930256, +1.0114477486327540, +1.6733758204028555, +1.4300141284392915, +1.4156945698590788, +1.2551183892258782, +1.7886415962069941, +1.8328846258920879, +1.5965185648041997, +1.7834875647805253, +1.4813409496724552, +1.1439346714333800, +1.0848923815203910, +1.6328350970676202, +1.9261178119812103, +1.0459092328463300, +1.2188861956207662, +1.7862139438388402, +1.0886984894605445, +1.7649653078102068, +1.1428253078040378, +1.8353178994157293, +1.4097766510748810, +1.0147342187273991, +1.0065426064067393, +1.1418099110770852, +1.0032328297405897, +1.5272276742912414, +1.3954615199721996, +1.0552774601086941, +1.6916182190097389, +1.8374165892047887, +1.5907601792027508, +1.7380201250126277, +1.2719921322897725, +1.2972432488258558, +1.5467272567740800, +1.3868643426667555, +1.1959329600962860, +1.5306481086493049, +1.1750456267308114, +1.5629281550586500, +1.8278845388015730, +1.9392355599581208, +1.4190199399291319, +1.8814495046571929, +1.3761376068769089, +1.1530420721479753, +1.5757254231272988, +1.3162682034509436, +1.8118078121701018, +1.4840827982576867, +1.3085886944166298, +1.4116016505518063, +1.0332079552622053, +1.5464838718783653, +1.5650857993808298, +1.4708989569599804, +1.8585785548204448, +1.0583500730295659, +1.7833171603572089, +1.6233070353007308, +1.6436362532007238, +1.6568676059381238, +1.3740065551821878, +1.1090734590105158, +1.5238792197101465, +1.4794403878715898, +1.7975020509423407, +1.1087276210070556, +1.6844495321105666, +1.5939340142432630, +1.5165637755750980, +1.6943363497589683, +1.3473746280125507, +1.8648109074424446, +1.1583369289843519, +1.2161582765426262, +1.0719288951843984, +1.1663913822997327, +1.1341885365705211, +1.0113993283933818, +1.9766743107424640, +1.9533251089249921, +1.6652320087804788, +1.9496742175762134, +1.2606688560293176, +1.6008939794827000, +1.9805109804794632

75

76adat = getFFTI(getFFTF(data))

77adat

78+1.0618460048231826, +1.3468523490844080, +1.7555100858059329, +1.2004858775740253, +1.3636212875017242, +1.8481034729161401, +1.6216558102930263, +1.0114477486327544, +1.6733758204028557, +1.4300141284392915, +1.4156945698590804, +1.2551183892258790, +1.7886415962069937, +1.8328846258920877, +1.5965185648042004, +1.7834875647805251, +1.4813409496724546, +1.1439346714333800, +1.0848923815203919, +1.6328350970676191, +1.9261178119812117, +1.0459092328463315, +1.2188861956207666, +1.7862139438388396, +1.0886984894605451, +1.7649653078102059, +1.1428253078040380, +1.8353178994157273, +1.4097766510748813, +1.0147342187273996, +1.0065426064067415, +1.1418099110770867, +1.0032328297405915, +1.5272276742912412, +1.3954615199722007, +1.0552774601086949, +1.6916182190097375, +1.8374165892047873, +1.5907601792027506, +1.7380201250126261, +1.2719921322897751, +1.2972432488258576, +1.5467272567740804, +1.3868643426667568, +1.1959329600962894, +1.5306481086493013, +1.1750456267308091, +1.5629281550586462, +1.8278845388015692, +1.9392355599581157, +1.4190199399291286, +1.8814495046571882, +1.3761376068769056, +1.1530420721479731, +1.5757254231272944, +1.3162682034509461, +1.8118078121701024, +1.4840827982576874, +1.3085886944166312, +1.4116016505518090, +1.0332079552622060, +1.5464838718783656, +1.5650857993808291, +1.4708989569599800, +1.8585785548204434, +1.0583500730295676, +1.7833171603572084, +1.6233070353007304, +1.6436362532007236, +1.6568676059381253, +1.3740065551821874, +1.1090734590105169, +1.5238792197101461, +1.4794403878715894, +1.7975020509423401, +1.1087276210070576, +1.6844495321105672, +1.5939340142432628, +1.5165637755750980, +1.6943363497589683, +1.3473746280125505, +1.8648109074424439, +1.1583369289843515, +1.2161582765426266, +1.0719288951843986, +1.1663913822997343, +1.1341885365705224, +1.0113993283933824, +1.9766743107424636, +1.9533251089249921, +1.6652320087804793, +1.9496742175762138, +1.2606688560293173, +1.6008939794827000, +1.9805109804794629

79reltol = sqrt(epsilon(1._TKC))

80reltol

81+0.14901161193847656E-7

82isClose(data, adat, reltol = reltol)

83T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

84call setAsserted(all(isClose(data, adat, reltol = reltol)))

85

86lenData = getUnifRand(5, 100)

87lenData

88+87

89data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

90data

91+1.29181359135779672090784477540058902, +1.28279639013633389886356917767188806, +1.45761299428690925618634717099608512, +1.01152552544397566135854278740338317, +1.75582657106130702708221024715601581, +1.82158180584954327991185864741824942, +1.65589394562269527518840834686365331, +1.04891795061741745195059252003651170, +1.57189973373659464792853427720122953, +1.55323586590573550009087695124119703, +1.04151911712950886987287327282037229, +1.73021370449009053120626716774346364, +1.59942249794518799971836100702403475, +1.23061812512007629324347422853812704, +1.10552661374036152950687471821028370, +1.69776176349209395126095706427100746, +1.00010758150036821323432776770171524, +1.77544557176428177391861055183102115, +1.40292991748901526270140100390277725, +1.67707368153517142450403081236520922, +1.43364370221283907216468799656994526, +1.86904823242954513672396394312370192, +1.99477825058471010418181100391589352, +1.86698890384958986823675125521343980, +1.16300684604225745317156319245936610, +1.99639145427708800562442213049354917, +1.25595321925257437960491520345081058, +1.76027497016793918075919647160434292, +1.58027785873711264480927437960134474, +1.91444765343110350445726772257176578, +1.79180556369434903273414756453989912, +1.31363326308292460185253209765059521, +1.33169183062208495369142408262630578, +1.28725850032436128556955410654269266, +1.72051133180387930908041846636169205, +1.43533240261307101583153373193440402, +1.43412850068178503745939478056886589, +1.49476774505218711083485827099873496, +1.50591936375461948987870068319235425, +1.68244776892748836795060837331350750, +1.21607980988123976977564934636493456, +1.71602856442982777572709969849836476, +1.98840727256085509648609976616719891, +1.27738184415759905790544758147807422, +1.70788663961342522046550316889598665, +1.67027308714124582038826622796407591, +1.45318393064528193953848647378186504, +1.14691613077807465147854969641207683, +1.36019641603217955643086958227716033, +1.17646705347240862926130374657750941, +1.02722669342017933134911097762171457, +1.18528337433589327693231076414274440, +1.45065450794135843872377284354947507, +1.70637500811424491673312849242522314, +1.68602539307431377818391259368955517, +1.21496184730332112112139294499618806, +1.20124999352216957180076441280669154, +1.13802465590175866396366772475026902, +1.70357663948230208804268290773868319, +1.61272506943223450419902336392954720, +1.57361319777039704230560019758438619, +1.33361654916273591934690330853332140, +1.08032859820969265990755064364387793, +1.47993149961011104140308153066615308, +1.16170497954596904271136445262937025, +1.56350026335579160510207574136044560, +1.75484384016170122370074722334580867, +1.65652807057804799900824499270001511, +1.16887260202598127824969208746360279, +1.69466027475656020457446107652705933, +1.89368282837886252339553657834577667, +1.57084614677471805113615026095227392, +1.66985966403862363516857064197797825, +1.02719616146163427022302419629188022, +1.35766592051370632786380624365699130, +1.37882143109003541489287936078868897, +1.41061482321936345362443411452362899, +1.37791304191545591138278049292738082, +1.08552675558957544202912251417736077, +1.39121800196519874818935043866950859, +1.30054082930358583091137226460647138, +1.09206907454534589926865220452133179, +1.66280023235003153508138424344419023, +1.75753139945806474098448184343695813, +1.84677353627030561455836292198097460, +1.23896834440706774018574536723927860, +1.66203156823217379908042349732102370

92

93adat = getFFTI(getFFTF(data))

94adat

95+1.29181359135779672090784477540058806, +1.28279639013633389886356917767188671, +1.45761299428690925618634717099608339, +1.01152552544397566135854278740338240, +1.75582657106130702708221024715601523, +1.82158180584954327991185864741824846, +1.65589394562269527518840834686365273, +1.04891795061741745195059252003651074, +1.57189973373659464792853427720122915, +1.55323586590573550009087695124119665, +1.04151911712950886987287327282037191, +1.73021370449009053120626716774346364, +1.59942249794518799971836100702403494, +1.23061812512007629324347422853812704, +1.10552661374036152950687471821028197, +1.69776176349209395126095706427100804, +1.00010758150036821323432776770171409, +1.77544557176428177391861055183102288, +1.40292991748901526270140100390277591, +1.67707368153517142450403081236520999, +1.43364370221283907216468799656994430, +1.86904823242954513672396394312370365, +1.99477825058471010418181100391589487, +1.86698890384958986823675125521344211, +1.16300684604225745317156319245936417, +1.99639145427708800562442213049355071, +1.25595321925257437960491520345080827, +1.76027497016793918075919647160434504, +1.58027785873711264480927437960134474, +1.91444765343110350445726772257176963, +1.79180556369434903273414756453989989, +1.31363326308292460185253209765059290, +1.33169183062208495369142408262630405, +1.28725850032436128556955410654269092, +1.72051133180387930908041846636169340, +1.43533240261307101583153373193440402, +1.43412850068178503745939478056886416, +1.49476774505218711083485827099873439, +1.50591936375461948987870068319235309, +1.68244776892748836795060837331350788, +1.21607980988123976977564934636493475, +1.71602856442982777572709969849836669, +1.98840727256085509648609976616720237, +1.27738184415759905790544758147807403, +1.70788663961342522046550316889598935, +1.67027308714124582038826622796407668, +1.45318393064528193953848647378186697, +1.14691613077807465147854969641207625, +1.36019641603217955643086958227716053, +1.17646705347240862926130374657750844, +1.02722669342017933134911097762171283, +1.18528337433589327693231076414274112, +1.45065450794135843872377284354947545, +1.70637500811424491673312849242522603, +1.68602539307431377818391259368955748, +1.21496184730332112112139294499618652, +1.20124999352216957180076441280668903, +1.13802465590175866396366772475026633, +1.70357663948230208804268290773868454, +1.61272506943223450419902336392954912, +1.57361319777039704230560019758438773, +1.33361654916273591934690330853332121, +1.08032859820969265990755064364387639, +1.47993149961011104140308153066615308, +1.16170497954596904271136445262936909, +1.56350026335579160510207574136044714, +1.75484384016170122370074722334580925, +1.65652807057804799900824499270001627, +1.16887260202598127824969208746360202, +1.69466027475656020457446107652705933, +1.89368282837886252339553657834577860, +1.57084614677471805113615026095227450, +1.66985966403862363516857064197797883, +1.02719616146163427022302419629187887, +1.35766592051370632786380624365699149, +1.37882143109003541489287936078868877, +1.41061482321936345362443411452362899, +1.37791304191545591138278049292738044, +1.08552675558957544202912251417736020, +1.39121800196519874818935043866950821, +1.30054082930358583091137226460647080, +1.09206907454534589926865220452133102, +1.66280023235003153508138424344418984, +1.75753139945806474098448184343695775, +1.84677353627030561455836292198097402, +1.23896834440706774018574536723927745, +1.66203156823217379908042349732102255

96reltol = sqrt(epsilon(1._TKC))

97reltol

98+0.138777878078144567552953958511352539E-16

99isClose(data, adat, reltol = reltol)

100T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

101call setAsserted(all(isClose(data, adat, reltol = reltol)))

102

103lenData = getUnifRand(5, 100)

104lenData

105+68

106data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

107data

108(+1.95394194, +0.733967721), (+1.71206808, +0.313899696), (+1.86747408, +0.280373454), (+1.37936807, +0.377503395), (+1.87851262, +0.792412758E-1), (+1.98046923, +0.769548774), (+1.61899471, +0.243294299), (+1.64802361, +0.577615619), (+1.74879646, +0.425324678), (+1.58167994, +0.397184730), (+1.17777562, +0.522430420), (+1.66552424, +0.205889702), (+1.64328170, +0.997405350), (+1.66722202, +0.402898610), (+1.74269295, +0.910458922), (+1.46352077, +0.286232650), (+1.50812423, +0.453688025), (+1.77283871, +0.197354555), (+1.64421499, +0.832544923), (+1.35440421, +0.237459958), (+1.50740337, +0.535664022), (+1.23265934, +0.967395782), (+1.44329834, +0.208504200E-1), (+1.83174288, +0.227525234), (+1.90052211, +0.327157915), (+1.63762331, +0.252599180), (+1.42293143, +0.852350116), (+1.37114429, +0.193123043), (+1.94224286, +0.148120999), (+1.01742649, +0.342816412), (+1.42109668, +0.824736655), (+1.27509236, +0.154137731), (+1.37520218, +0.233951211), (+1.21601951, +0.970606923), (+1.05648446, +0.415318847), (+1.83259368, +0.126258135E-1), (+1.59376407, +0.772593558), (+1.50692332, +0.521497846), (+1.04889870, +0.147773862), (+1.15429521, +0.780066013), (+1.55747950, +0.234393358), (+1.90544581, +0.814221799), (+1.99404335, +0.962962270), (+1.28668666, +0.754660368E-1), (+1.70063424, +0.697393954), (+1.91128349, +0.763521194), (+1.27204156, +0.771005332), (+1.37168634, +0.323514700), (+1.20419693, +0.302418530), (+1.15451217, +0.438659728), (+1.87757730, +0.910314441), (+1.75220311, +0.408014059), (+1.22544909, +0.680672526E-1), (+1.94305658, +0.600981653), (+1.53002226, +0.901886523), (+1.84858251, +0.197570622), (+1.63844585, +0.316235006), (+1.14905643, +0.612528920), (+1.95239425, +0.961690128), (+1.27305114, +0.805965304), (+1.71576142, +0.219397187), (+1.64431357, +0.923606038), (+1.16923285, +0.931554258), (+1.92422152, +0.676560819), (+1.85416043, +0.479319751), (+1.74228871, +0.191021681), (+1.18061972, +0.106854379), (+1.17221618, +0.174741924)

109

110adat = getFFTI(getFFTF(data))

111adat

112(+1.95394158, +0.733967602), (+1.71206784, +0.313899755), (+1.86747420, +0.280373514), (+1.37936819, +0.377503306), (+1.87851262, +0.792412236E-1), (+1.98046947, +0.769548655), (+1.61899483, +0.243294328), (+1.64802384, +0.577615619), (+1.74879682, +0.425324708), (+1.58167994, +0.397184819), (+1.17777562, +0.522430301), (+1.66552424, +0.205889598), (+1.64328182, +0.997405350), (+1.66722202, +0.402898580), (+1.74269319, +0.910458982), (+1.46352112, +0.286232680), (+1.50812447, +0.453688145), (+1.77283800, +0.197354481), (+1.64421535, +0.832545102), (+1.35440445, +0.237459913), (+1.50740325, +0.535664082), (+1.23265934, +0.967395782), (+1.44329870, +0.208504070E-1), (+1.83174288, +0.227525294), (+1.90052211, +0.327157885), (+1.63762343, +0.252599120), (+1.42293179, +0.852350116), (+1.37114453, +0.193122953), (+1.94224322, +0.148120984), (+1.01742661, +0.342816412), (+1.42109656, +0.824736536), (+1.27509236, +0.154137775), (+1.37520242, +0.233951181), (+1.21601963, +0.970606863), (+1.05648398, +0.415318817), (+1.83259368, +0.126257781E-1), (+1.59376442, +0.772593617), (+1.50692344, +0.521497846), (+1.04889882, +0.147773802), (+1.15429544, +0.780066013), (+1.55747974, +0.234393388), (+1.90544605, +0.814221799), (+1.99404371, +0.962962329), (+1.28668702, +0.754660964E-1), (+1.70063448, +0.697393894), (+1.91128337, +0.763521194), (+1.27204192, +0.771005392), (+1.37168646, +0.323514640), (+1.20419693, +0.302418470), (+1.15451205, +0.438659817), (+1.87757778, +0.910314560), (+1.75220263, +0.408013999), (+1.22544944, +0.680672452E-1), (+1.94305646, +0.600981712), (+1.53002238, +0.901886523), (+1.84858251, +0.197570503), (+1.63844609, +0.316234976), (+1.14905643, +0.612529159), (+1.95239437, +0.961690128), (+1.27305162, +0.805965185), (+1.71576178, +0.219397292), (+1.64431345, +0.923605978), (+1.16923296, +0.931554139), (+1.92422175, +0.676560819), (+1.85416055, +0.479319751), (+1.74228871, +0.191021606), (+1.18061984, +0.106854379), (+1.17221642, +0.174741924)

113reltol = sqrt(epsilon(1._TKC))

114reltol

115+0.345266977E-3

116isClose(data, adat, reltol = reltol)

117T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

118call setAsserted(all(isClose(data, adat, reltol = reltol)))

119

120lenData = getUnifRand(5, 100)

121lenData

122+87

123data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

124data

125(+1.9153123958078158, +0.76752871287966284), (+1.8887068785504779, +0.82104758135235101), (+1.9685550912554299, +0.51517798283721428), (+1.9995609472342881, +0.65046425590466328), (+1.6551919275711757, +0.78286087079034405), (+1.1682545998001332, +0.42928064049413284), (+1.3659513493928868, +0.10829041319223798), (+1.3412343226274783, +0.19159740826521854), (+1.8835394666396352, +0.26996808251907767), (+1.3257991522458630, +0.68798276566859728), (+1.8485193944035796, +0.33041673965860818), (+1.1471883858143013, +0.41524445985224556), (+1.5123679139221717, +0.87105379497186430), (+1.9082044047278537, +0.54103969609329960), (+1.2943268149567007, +0.85531750150817010), (+1.7676516893965890, +0.25868040010044469), (+1.9695700626103847, +0.22787984411554052), (+1.8988494276232042, +0.13514142389844408), (+1.7417035412741835, +0.40299846001795814E-1), (+1.7920613024315943, +0.23512840900333054), (+1.5573055014447499, +0.33895628122404509), (+1.6455993453836817, +0.81771989160779557), (+1.2622689114509456, +0.48621624680101572), (+1.6497754021765716, +0.86434117126494869), (+1.6318172265315409, +0.16782355240546809), (+1.3306941312902021, +0.69159185443711824), (+1.0654738379300428, +0.14195157695312144), (+1.1583270005324406, +0.87704787010778873), (+1.0933457360799854, +0.70927600330204899), (+1.4972920489422472, +0.31765125632522395), (+1.4248524692489690, +0.89618355173167419), (+1.6790847858308526, +0.21903291934327296), (+1.6582588982607673, +0.33724012456223706), (+1.6772776492209185, +0.32962668468755618E-1), (+1.3808450812652890, +0.16415309750678064), (+1.4956996418669770, +0.95329415542452134), (+1.3772748304623401, +0.47869631082080100), (+1.2827469343152262, +0.60733918122180175), (+1.1225860531910163, +0.98342034549982482), (+1.1033214247437919, +0.23972186440803744), (+1.5713259608427497, +0.76605230688612713), (+1.0184485437853734, +0.30260027440953996), (+1.2086642622927615, +0.32512849959122925), (+1.9793035426620786, +0.22695798899524333E-1), (+1.8601852763851392, +0.76290732529113003), (+1.2449066072357740, +0.30601511118140867), (+1.0120135057657169, +0.34261574441528153), (+1.5492818336232190, +0.34790981757500505), (+1.0989814373767723, +0.55764323553823947), (+1.0537796858529740, +0.14541289538939572), (+1.0617962815541246, +0.75949128603522342), (+1.2376416635600092, +0.86160891424125274), (+1.2311261504863631, +0.87339222429850161), (+1.2272243340371087, +0.84678080035407310), (+1.1935569771133905, +0.29096002395886789), (+1.8733950875872272, +0.79390982566474000), (+1.3432721249092292, +0.74037449736403382), (+1.4838741217659637, +0.18291246223685320), (+1.1365368315464901, +0.19587200103503344), (+1.3262934385179732, +0.44799783224181655E-1), (+1.0034859750945140, +0.68538639624184583), (+1.7847566392727701, +0.91732841571662771), (+1.0809890137382627, +0.10450684069571436), (+1.4252978623326129, +0.13734156109794249), (+1.7812757198812688, +0.36233212772118029), (+1.5496091760811845, +0.20232449132912789), (+1.3736113100541338, +0.14344614931902910), (+1.1044037087327354, +0.76552636175213651), (+1.9993165235151771, +0.62689267212710909), (+1.1940761735901566, +0.67709680569914010), (+1.5166302058391308, +0.91613952697784984), (+1.4704652303208308, +0.88464383095895871), (+1.5380410320417819, +0.35110818965689750), (+1.0169690547377048, +0.13172169294113578E-1), (+1.2899433356205183, +0.66937648059549604), (+1.3314019992111716, +0.19554658900106692), (+1.5723181662669243, +0.58808376239200921), (+1.0094689190783535, +0.97742486426136366E-1), (+1.9887026965641645, +0.51891250774122910), (+1.0365934036567239, +0.48652519396493288), (+1.7440952856753946, +0.19775284444788455), (+1.5443687918868227, +0.81792240992828125), (+1.2811598339200994, +0.21863059302424448), (+1.9496588094885978, +0.83461447124207644), (+1.2242915454162677, +0.24826126827126027), (+1.7201559641240527, +0.51171710717221541), (+1.0212424449665531, +0.71238645254753252)

126

127adat = getFFTI(getFFTF(data))

128adat

129(+1.9153123958078138, +0.76752871287966207), (+1.8887068785504793, +0.82104758135235112), (+1.9685550912554306, +0.51517798283721428), (+1.9995609472342883, +0.65046425590466350), (+1.6551919275711753, +0.78286087079034428), (+1.1682545998001337, +0.42928064049413278), (+1.3659513493928872, +0.10829041319223755), (+1.3412343226274785, +0.19159740826521857), (+1.8835394666396352, +0.26996808251907789), (+1.3257991522458630, +0.68798276566859717), (+1.8485193944035800, +0.33041673965860802), (+1.1471883858143008, +0.41524445985224545), (+1.5123679139221726, +0.87105379497186408), (+1.9082044047278530, +0.54103969609329983), (+1.2943268149566998, +0.85531750150816988), (+1.7676516893965881, +0.25868040010044485), (+1.9695700626103838, +0.22787984411554069), (+1.8988494276232044, +0.13514142389844394), (+1.7417035412741837, +0.40299846001795467E-1), (+1.7920613024315946, +0.23512840900333040), (+1.5573055014447499, +0.33895628122404498), (+1.6455993453836815, +0.81771989160779546), (+1.2622689114509458, +0.48621624680101577), (+1.6497754021765716, +0.86434117126494858), (+1.6318172265315414, +0.16782355240546853), (+1.3306941312902021, +0.69159185443711824), (+1.0654738379300428, +0.14195157695312183), (+1.1583270005324406, +0.87704787010778840), (+1.0933457360799861, +0.70927600330204910), (+1.4972920489422452, +0.31765125632522273), (+1.4248524692489699, +0.89618355173167441), (+1.6790847858308533, +0.21903291934327299), (+1.6582588982607678, +0.33724012456223751), (+1.6772776492209194, +0.32962668468755660E-1), (+1.3808450812652897, +0.16415309750678092), (+1.4956996418669770, +0.95329415542452112), (+1.3772748304623399, +0.47869631082080105), (+1.2827469343152265, +0.60733918122180153), (+1.1225860531910161, +0.98342034549982449), (+1.1033214247437921, +0.23972186440803742), (+1.5713259608427497, +0.76605230688612735), (+1.0184485437853734, +0.30260027440953974), (+1.2086642622927617, +0.32512849959122925), (+1.9793035426620778, +0.22695798899524194E-1), (+1.8601852763851385, +0.76290732529112992), (+1.2449066072357740, +0.30601511118140878), (+1.0120135057657171, +0.34261574441528164), (+1.5492818336232190, +0.34790981757500483), (+1.0989814373767726, +0.55764323553823936), (+1.0537796858529747, +0.14541289538939559), (+1.0617962815541249, +0.75949128603522298), (+1.2376416635600092, +0.86160891424125274), (+1.2311261504863629, +0.87339222429850172), (+1.2272243340371085, +0.84678080035407277), (+1.1935569771133911, +0.29096002395886789), (+1.8733950875872274, +0.79390982566473989), (+1.3432721249092292, +0.74037449736403360), (+1.4838741217659648, +0.18291246223685356), (+1.1365368315464885, +0.19587200103503263), (+1.3262934385179737, +0.44799783224182030E-1), (+1.0034859750945140, +0.68538639624184605), (+1.7847566392727703, +0.91732841571662749), (+1.0809890137382629, +0.10450684069571434), (+1.4252978623326134, +0.13734156109794243), (+1.7812757198812685, +0.36233212772118056), (+1.5496091760811845, +0.20232449132912786), (+1.3736113100541336, +0.14344614931902910), (+1.1044037087327356, +0.76552636175213706), (+1.9993165235151773, +0.62689267212710897), (+1.1940761735901566, +0.67709680569914032), (+1.5166302058391312, +0.91613952697784973), (+1.4704652303208305, +0.88464383095895882), (+1.5380410320417808, +0.35110818965689744), (+1.0169690547377035, +0.13172169294113575E-1), (+1.2899433356205177, +0.66937648059549548), (+1.3314019992111725, +0.19554658900106700), (+1.5723181662669243, +0.58808376239200932), (+1.0094689190783532, +0.97742486426136366E-1), (+1.9887026965641650, +0.51891250774122910), (+1.0365934036567253, +0.48652519396493288), (+1.7440952856753946, +0.19775284444788468), (+1.5443687918868227, +0.81792240992828102), (+1.2811598339201000, +0.21863059302424481), (+1.9496588094885974, +0.83461447124207633), (+1.2242915454162682, +0.24826126827126069), (+1.7201559641240527, +0.51171710717221541), (+1.0212424449665549, +0.71238645254753297)

130reltol = sqrt(epsilon(1._TKC))

131reltol

132+0.14901161193847656E-7

133isClose(data, adat, reltol = reltol)

134T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

135call setAsserted(all(isClose(data, adat, reltol = reltol)))

136

137lenData = getUnifRand(5, 100)

138lenData

139+56

140data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

141data

142(+1.04354509579068213448597580268658981, +0.907494895080038356744385935340208886), (+1.26704176002584515580718770547325296, +0.865073647679059305234157626721731809), (+1.29815638262482002131947211718736785, +0.515343613629878572661716043936753711), (+1.12117836578638685448179230723965004, +0.288764161790466086085517733367135532), (+1.04002685628231222249616270446177523, +0.679284927399360157544383724606201526), (+1.58073874419698388931365487703107058, +0.627155347021518032419074329841232681), (+1.11970679717863833726197094440759571, +0.994128519482650463103462057114068247), (+1.01738979706387320307358572169568520, +0.521365563069260628230840802389971106), (+1.83243832907520097556010391521041905, +0.468420113724251687363248925568477497), (+1.98060333496982462656656005826834617, +0.122398932337511921984040035910737278), (+1.33548957566268838643125647208262777, +0.959112672814501532737886056747388793), (+1.47517997462903364061807902505733459, +0.394701748637738233815188594157224828), (+1.12244258949203128055383535078211759, +0.942795038473436234672195476253014005), (+1.06557803539634201593121448832463334, +0.323581052350016095585905615418229439), (+1.34206375366854336747387687527863120, +0.565481620262003715621876775963013971), (+1.24382661222280783741606862104590651, +0.648402025734064226165708087924278407), (+1.95306692669229246608534824298591505, +0.255607444197567061669778108918271040), (+1.29886193893189288393058440358967984, +0.903925529681005379234063764763541363), (+1.95978769487336377893069687054932482, +0.482062320254841224965657655992223477), (+1.36379637140782582854726208680151948, +0.781565715782903409649251304335226437), (+1.09735519457341024691292015295113049, +0.339332683206125254764591777373091505), (+1.87948792152670676860290242323260074, +0.639046304980663981109490415389988328), (+1.32092566662809979226277043005983934, +0.915501893854480452634418489967080145E-1), (+1.72653635079068364707456901078192118, +0.467193526369568166507432947249193481), (+1.31857268680295793714138280273258610, +0.656178802990435683015589468494751214), (+1.90137571840851639115589733524469652, +0.836186895242391616544747832602413822), (+1.13141921054773023217626596631221284, +0.194989692262508132847587244897776280), (+1.89854141207129118746302283519907280, +0.991319628544857441708429295145847962), (+1.93549871468709581847931431390871556, +0.447647460750590283560279314413060524), (+1.61706518756305681407142661296324425, +0.878823679900819499520798920327580213), (+1.49156343494760036467723917206205311, +0.176121940618047534187789628038757857), (+1.44001074062440459923497437250016583, +0.159092828470830656078060001279515410), (+1.66883247172908884430847329837817926, +0.573118324799634849536188781413139159E-1), (+1.20827213154877024694425377729205577, +0.860320998067136455985222305735324245), (+1.53729687281454082662047445950922163, +0.337702417332192733669174247552518140), (+1.91643105781968568257880968158309825, +0.327440943283144662887843537201581092), (+1.12657260062529673418342056994452907, +0.115484669265490253138986940557127164), (+1.42978595968631946394465130610764975, +0.325760911183967297851015745786203926E-2), (+1.52388244882970391092369003795893614, +0.473731827626317776306937606421523023), (+1.81305859481868241373283077259814545, +0.246051900583176211297713292269689835), (+1.68510887195574847769324307933822503, +0.913594904253133614318415065037701622), (+1.23489510956884127268829302292708136, +0.336284106147139723991712620472810687), (+1.42247586051003074445412954326555477, +0.862430026639682531141707763553721222), (+1.00685484333885801834575496577176258, +0.358500395689400574603147273882341604E-1), (+1.77728951993488934819561336346131822, +0.245438751119057704533288488102941230), (+1.21582258802840037609919180258229718, +0.492356794353021949547132183194767133), (+1.59957774046925773331387609503240934, +0.121104598988914822306660480682535009E-2), (+1.60999870449582905597470098883041368, +0.181642927606893142793086760324960828), (+1.77567983281322072764578836797238946, +0.643899733396956787540857482092960238), (+1.65932893599801117897142408729901075, +0.691861419414932921126588941694810870), (+1.39745143341567898302566544244841788, +0.955294857758628239529569626089925965), (+1.69550849981564694271415928624706973, +0.985377376557487231128039709398035733), (+1.41518320147022532995020355593175527, +0.733206699836437624479232145513214340E-1), (+1.47262616328262134878759457687788347, +0.678380400093362881745250445246547116), (+1.80106147426668121013005248240693631, +0.464668918345488934539959489202494148), (+1.77647355697243516445822563562784556, +0.280823541405501676649223415426037371)

143

144adat = getFFTI(getFFTF(data))

145adat

146(+1.04354509579068213448597580268659000, +0.907494895080038356744385935340208886), (+1.26704176002584515580718770547325296, +0.865073647679059305234157626721731809), (+1.29815638262482002131947211718736746, +0.515343613629878572661716043936753711), (+1.12117836578638685448179230723965004, +0.288764161790466086085517733367135436), (+1.04002685628231222249616270446177523, +0.679284927399360157544383724606201334), (+1.58073874419698388931365487703107077, +0.627155347021518032419074329841232681), (+1.11970679717863833726197094440759552, +0.994128519482650463103462057114068344), (+1.01738979706387320307358572169568501, +0.521365563069260628230840802389971010), (+1.83243832907520097556010391521041885, +0.468420113724251687363248925568477497), (+1.98060333496982462656656005826834578, +0.122398932337511921984040035910737398), (+1.33548957566268838643125647208262757, +0.959112672814501532737886056747388697), (+1.47517997462903364061807902505733459, +0.394701748637738233815188594157224684), (+1.12244258949203128055383535078211740, +0.942795038473436234672195476253014102), (+1.06557803539634201593121448832463315, +0.323581052350016095585905615418229391), (+1.34206375366854336747387687527863101, +0.565481620262003715621876775963013779), (+1.24382661222280783741606862104590670, +0.648402025734064226165708087924278311), (+1.95306692669229246608534824298591505, +0.255607444197567061669778108918271233), (+1.29886193893189288393058440358967926, +0.903925529681005379234063764763541267), (+1.95978769487336377893069687054932482, +0.482062320254841224965657655992223573), (+1.36379637140782582854726208680151948, +0.781565715782903409649251304335226725), (+1.09735519457341024691292015295113068, +0.339332683206125254764591777373091554), (+1.87948792152670676860290242323260074, +0.639046304980663981109490415389988039), (+1.32092566662809979226277043005983895, +0.915501893854480452634418489967079182E-1), (+1.72653635079068364707456901078192137, +0.467193526369568166507432947249193481), (+1.31857268680295793714138280273258591, +0.656178802990435683015589468494751117), (+1.90137571840851639115589733524469613, +0.836186895242391616544747832602413822), (+1.13141921054773023217626596631221284, +0.194989692262508132847587244897776352), (+1.89854141207129118746302283519907280, +0.991319628544857441708429295145847962), (+1.93549871468709581847931431390871576, +0.447647460750590283560279314413060524), (+1.61706518756305681407142661296324425, +0.878823679900819499520798920327580117), (+1.49156343494760036467723917206205234, +0.176121940618047534187789628038757785), (+1.44001074062440459923497437250016563, +0.159092828470830656078060001279515290), (+1.66883247172908884430847329837817907, +0.573118324799634849536188781413139821E-1), (+1.20827213154877024694425377729205577, +0.860320998067136455985222305735324148), (+1.53729687281454082662047445950922201, +0.337702417332192733669174247552518189), (+1.91643105781968568257880968158309825, +0.327440943283144662887843537201580851), (+1.12657260062529673418342056994452945, +0.115484669265490253138986940557127224), (+1.42978595968631946394465130610764936, +0.325760911183967297851015745786186020E-2), (+1.52388244882970391092369003795893576, +0.473731827626317776306937606421523023), (+1.81305859481868241373283077259814526, +0.246051900583176211297713292269689739), (+1.68510887195574847769324307933822503, +0.913594904253133614318415065037701718), (+1.23489510956884127268829302292708117, +0.336284106147139723991712620472810590), (+1.42247586051003074445412954326555477, +0.862430026639682531141707763553721222), (+1.00685484333885801834575496577176258, +0.358500395689400574603147273882342807E-1), (+1.77728951993488934819561336346131803, +0.245438751119057704533288488102941399), (+1.21582258802840037609919180258229660, +0.492356794353021949547132183194767133), (+1.59957774046925773331387609503240896, +0.121104598988914822306660480682525380E-2), (+1.60999870449582905597470098883041387, +0.181642927606893142793086760324961020), (+1.77567983281322072764578836797238965, +0.643899733396956787540857482092960238), (+1.65932893599801117897142408729901017, +0.691861419414932921126588941694810677), (+1.39745143341567898302566544244841769, +0.955294857758628239529569626089925773), (+1.69550849981564694271415928624706973, +0.985377376557487231128039709398035733), (+1.41518320147022532995020355593175508, +0.733206699836437624479232145513214701E-1), (+1.47262616328262134878759457687788308, +0.678380400093362881745250445246547020), (+1.80106147426668121013005248240693593, +0.464668918345488934539959489202494100), (+1.77647355697243516445822563562784594, +0.280823541405501676649223415426037323)

147reltol = sqrt(epsilon(1._TKC))

148reltol

149+0.138777878078144567552953958511352539E-16

150isClose(data, adat, reltol = reltol)

151T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

152call setAsserted(all(isClose(data, adat, reltol = reltol)))

153

154lenData = getUnifRand(5, 100)

155lenData

156+91

157data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

158data

159+1.44163227, +1.49154603, +1.36604071, +1.07882929, +1.83401346, +1.19618297, +1.18511462, +1.16337109, +1.65782952, +1.93059134, +1.78698516, +1.44687724, +1.92632461, +1.30308163, +1.62119722, +1.87521684, +1.37583280, +1.99664187, +1.63573813, +1.46822929, +1.51516604, +1.72693372, +1.15237498, +1.82390976, +1.35824990, +1.97662210, +1.66894197, +1.42624354, +1.65315199, +1.31231081, +1.06058419, +1.27209044, +1.14846754, +1.67943788, +1.16516197, +1.03299093, +1.36311722, +1.78527796, +1.09539175, +1.77937722, +1.09798276, +1.12591076, +1.89282775, +1.72520804, +1.58721304, +1.91759455, +1.71439064, +1.75296044, +1.70493245, +1.81843758, +1.03950882, +1.58100295, +1.77758133, +1.26743126, +1.68102908, +1.04444003, +1.83260775, +1.09410059, +1.82476020, +1.46283317, +1.94005895, +1.53777337, +1.68478262, +1.87003899, +1.35878778, +1.34662819, +1.34529495, +1.87679338, +1.47872353, +1.13284385, +1.84241700, +1.72345018, +1.50166845, +1.94960380, +1.76194108, +1.27918482, +1.16856694, +1.81493330, +1.80440784, +1.92628109, +1.14887083, +1.21999013, +1.08237469, +1.27379405, +1.94598866, +1.87026072, +1.84723711, +1.26218390, +1.24772215, +1.67706871, +1.48809087

160

161adat = getFFTI(getFFTF(data))

162adat

163+1.44163263, +1.49154603, +1.36604095, +1.07882941, +1.83401322, +1.19618332, +1.18511462, +1.16337073, +1.65782928, +1.93059146, +1.78698480, +1.44687712, +1.92632437, +1.30308163, +1.62119746, +1.87521672, +1.37583303, +1.99664211, +1.63573790, +1.46822941, +1.51516604, +1.72693312, +1.15237463, +1.82390964, +1.35824919, +1.97662163, +1.66894186, +1.42624319, +1.65315223, +1.31231093, +1.06058431, +1.27209044, +1.14846754, +1.67943835, +1.16516209, +1.03299034, +1.36311674, +1.78527808, +1.09539115, +1.77937675, +1.09798229, +1.12591064, +1.89282870, +1.72520852, +1.58721387, +1.91759539, +1.71439111, +1.75296128, +1.70493293, +1.81843889, +1.03950989, +1.58100379, +1.77758241, +1.26743197, +1.68103004, +1.04444122, +1.83260715, +1.09409988, +1.82476044, +1.46283233, +1.94005847, +1.53777289, +1.68478227, +1.87003922, +1.35878801, +1.34662819, +1.34529519, +1.87679338, +1.47872388, +1.13284409, +1.84241629, +1.72344971, +1.50166845, +1.94960308, +1.76194048, +1.27918446, +1.16856647, +1.81493342, +1.80440784, +1.92628133, +1.14887118, +1.21998978, +1.08237481, +1.27379405, +1.94598830, +1.87026012, +1.84723723, +1.26218355, +1.24772191, +1.67706859, +1.48809075

164reltol = sqrt(epsilon(1._TKC))

165reltol

166+0.345266977E-3

167isClose(data, adat, reltol = reltol)

168T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

169call setAsserted(all(isClose(data, adat, reltol = reltol)))

170

171lenData = getUnifRand(5, 100)

172lenData

173+74

174data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

175data

176+1.0588365146145464, +1.6448799365466100, +1.8106319749636364, +1.5854145122564614, +1.1646198898113380, +1.3645416020738250, +1.3634904999892450, +1.1918976599158779, +1.7003730967255621, +1.9603219656426427, +1.6802288487526031, +1.9347036970675284, +1.0161371427602448, +1.6095662652891001, +1.7858835068361532, +1.1911379902782957, +1.7673509656982240, +1.5570374529048778, +1.1301400568013427, +1.5685348432624233, +1.8242528889222620, +1.7790239728460020, +1.4497249775606726, +1.7797577475490014, +1.9485292619159189, +1.7642737831834927, +1.0939030416585909, +1.4084981549420355, +1.6156648929703492, +1.0944271638843408, +1.2153036563750845, +1.3888258373853537, +1.5080069538988301, +1.8327392207161157, +1.3574192746687612, +1.0972454640829405, +1.9438844349850826, +1.6220025682015693, +1.5166459522582463, +1.0392716475923918, +1.5165972774487537, +1.8251727143247645, +1.2674993053636314, +1.0977449558588330, +1.5237995693267929, +1.7437968569305613, +1.8629040229099267, +1.1884866774649261, +1.1017748332283317, +1.4115326569098241, +1.1603441554141098, +1.1613877556217034, +1.7052198368664078, +1.4218497739523441, +1.5347113250309359, +1.9475144943377924, +1.2568891753712872, +1.9120157879842239, +1.7752501325195780, +1.5636730502269371, +1.9279924246885223, +1.4478063432526698, +1.9708878662848255, +1.2761915365608467, +1.2331818201036771, +1.2884840560199877, +1.4021389438980219, +1.0549644317493756, +1.8396630906416855, +1.3911299653379805, +1.7093664208891661, +1.5064473168511072, +1.4325382655444239, +1.3626765596403487

177

178adat = getFFTI(getFFTF(data))

179adat

180+1.0588365146145460, +1.6448799365466094, +1.8106319749636364, +1.5854145122564614, +1.1646198898113380, +1.3645416020738246, +1.3634904999892450, +1.1918976599158779, +1.7003730967255626, +1.9603219656426425, +1.6802288487526043, +1.9347036970675291, +1.0161371427602466, +1.6095662652891001, +1.7858835068361538, +1.1911379902782959, +1.7673509656982247, +1.5570374529048769, +1.1301400568013431, +1.5685348432624235, +1.8242528889222618, +1.7790239728460018, +1.4497249775606740, +1.7797577475490016, +1.9485292619159182, +1.7642737831834925, +1.0939030416585935, +1.4084981549420355, +1.6156648929703490, +1.0944271638843412, +1.2153036563750856, +1.3888258373853539, +1.5080069538988299, +1.8327392207161139, +1.3574192746687628, +1.0972454640829425, +1.9438844349850812, +1.6220025682015662, +1.5166459522582474, +1.0392716475923938, +1.5165972774487533, +1.8251727143247611, +1.2674993053636328, +1.0977449558588355, +1.5237995693267925, +1.7437968569305586, +1.8629040229099265, +1.1884866774649270, +1.1017748332283339, +1.4115326569098239, +1.1603441554141114, +1.1613877556217038, +1.7052198368664078, +1.4218497739523441, +1.5347113250309359, +1.9475144943377918, +1.2568891753712883, +1.9120157879842239, +1.7752501325195784, +1.5636730502269369, +1.9279924246885232, +1.4478063432526698, +1.9708878662848268, +1.2761915365608472, +1.2331818201036788, +1.2884840560199884, +1.4021389438980230, +1.0549644317493760, +1.8396630906416855, +1.3911299653379801, +1.7093664208891663, +1.5064473168511070, +1.4325382655444243, +1.3626765596403487

181reltol = sqrt(epsilon(1._TKC))

182reltol

183+0.14901161193847656E-7

184isClose(data, adat, reltol = reltol)

185T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

186call setAsserted(all(isClose(data, adat, reltol = reltol)))

187

188lenData = getUnifRand(5, 100)

189lenData

190+25

191data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

192data

193+1.27371407966219818068007204727954724, +1.86514426298931933185596621731038485, +1.16636940678828807081463163614924515, +1.66704431042285943037356250064291071, +1.64606225820237012147119899799210393, +1.43680048994187797814913881588409415, +1.00903371764786788889973214355979876, +1.93245639736865258095557621573248303, +1.44585960204609698423847004802074520, +1.30746803539590862804045254087957761, +1.57088290716867558783981031592308534, +1.37602485724276151608943731045977202, +1.57310103694333111223832952370255862, +1.98831017418343727827328291141392594, +1.93744452950191952556630758854639414, +1.10765960391293461224741936553873277, +1.24812789703994837445196804690308976, +1.67679959539560667232711558274550565, +1.40560869029330226768589622907982979, +1.61359938925151798146083040288185348, +1.75611084748084789538222644280588204, +1.17864390650193630615198280443159168, +1.15766925220741761266087933252074964, +1.41589435981801380256638147903580203, +1.56743262163480150345873369256993276

194

195adat = getFFTI(getFFTF(data))

196adat

197+1.27371407966219818068007204727954705, +1.86514426298931933185596621731038505, +1.16636940678828807081463163614924438, +1.66704431042285943037356250064291033, +1.64606225820237012147119899799210393, +1.43680048994187797814913881588409415, +1.00903371764786788889973214355979876, +1.93245639736865258095557621573248323, +1.44585960204609698423847004802074520, +1.30746803539590862804045254087957742, +1.57088290716867558783981031592308515, +1.37602485724276151608943731045977202, +1.57310103694333111223832952370255862, +1.98831017418343727827328291141392613, +1.93744452950191952556630758854639394, +1.10765960391293461224741936553873277, +1.24812789703994837445196804690308976, +1.67679959539560667232711558274550565, +1.40560869029330226768589622907982979, +1.61359938925151798146083040288185310, +1.75611084748084789538222644280588184, +1.17864390650193630615198280443159188, +1.15766925220741761266087933252074945, +1.41589435981801380256638147903580203, +1.56743262163480150345873369256993276

198reltol = sqrt(epsilon(1._TKC))

199reltol

200+0.138777878078144567552953958511352539E-16

201isClose(data, adat, reltol = reltol)

202T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

203call setAsserted(all(isClose(data, adat, reltol = reltol)))

204

205lenData = getUnifRand(5, 100)

206lenData

207+46

208data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

209data

210(+1.36471581, +0.487712264), (+1.70172715, +0.124425113), (+1.30518842, +0.968911052E-1), (+1.79284835, +0.437971532), (+1.13358831, +0.417487621), (+1.24564219, +0.301468909), (+1.90055752, +0.772099376), (+1.08589268, +0.929514349), (+1.38030457, +0.173975348), (+1.66387820, +0.484112382), (+1.88117933, +0.580823600), (+1.97970366, +0.814014792), (+1.68092287, +0.138494194), (+1.68687749, +0.318561256), (+1.75177813, +0.662238598), (+1.94889331, +0.209344625E-1), (+1.31076884, +0.283025861), (+1.29588103, +0.117163002), (+1.60085988, +0.974856436), (+1.29963315, +0.681981325), (+1.22439957, +0.657279253), (+1.67905998, +0.444543958E-1), (+1.76659477, +0.503404438), (+1.13316655, +0.659874856), (+1.45510554, +0.343550444), (+1.87752819, +0.272068918), (+1.19458473, +0.637928188), (+1.74382806, +0.254157841), (+1.31578457, +0.853921294), (+1.82963037, +0.136691451), (+1.28630877, +0.853472948E-1), (+1.42935646, +0.875699580), (+1.96565533, +0.788155317), (+1.48055243, +0.720781147), (+1.57080054, +0.206456482), (+1.12775803, +0.244738460E-1), (+1.50290155, +0.659685552), (+1.26661193, +0.704382896), (+1.17778563, +0.782105386), (+1.54994738, +0.331346095), (+1.40851068, +0.207648754), (+1.74632001, +0.513759673), (+1.57550573, +0.223111808), (+1.73718679, +0.634133518), (+1.75957870, +0.865320325), (+1.22051573, +0.334837973)

211

212adat = getFFTI(getFFTF(data))

213adat

214(+1.36471558, +0.487712294), (+1.70172739, +0.124425068), (+1.30518830, +0.968911946E-1), (+1.79284823, +0.437971503), (+1.13358819, +0.417487562), (+1.24564219, +0.301468909), (+1.90055764, +0.772099376), (+1.08589292, +0.929514170), (+1.38030481, +0.173975453), (+1.66387832, +0.484112382), (+1.88117957, +0.580823720), (+1.97970366, +0.814014792), (+1.68092299, +0.138494223), (+1.68687761, +0.318561316), (+1.75177801, +0.662238717), (+1.94889307, +0.209343545E-1), (+1.31076896, +0.283025950), (+1.29588139, +0.117162958), (+1.60086012, +0.974856615), (+1.29963338, +0.681981325), (+1.22439981, +0.657279313), (+1.67905998, +0.444544107E-1), (+1.76659513, +0.503404498), (+1.13316596, +0.659874797), (+1.45510590, +0.343550533), (+1.87752783, +0.272068948), (+1.19458473, +0.637928128), (+1.74382818, +0.254157811), (+1.31578481, +0.853921413), (+1.82963049, +0.136691466), (+1.28630877, +0.853474140E-1), (+1.42935646, +0.875699461), (+1.96565521, +0.788155377), (+1.48055232, +0.720781088), (+1.57080066, +0.206456542), (+1.12775838, +0.244739484E-1), (+1.50290155, +0.659685671), (+1.26661205, +0.704382896), (+1.17778575, +0.782105327), (+1.54994750, +0.331346005), (+1.40851080, +0.207648858), (+1.74632013, +0.513759553), (+1.57550561, +0.223111689), (+1.73718679, +0.634133577), (+1.75957835, +0.865320325), (+1.22051585, +0.334837914)

215reltol = sqrt(epsilon(1._TKC))

216reltol

217+0.345266977E-3

218isClose(data, adat, reltol = reltol)

219T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

220call setAsserted(all(isClose(data, adat, reltol = reltol)))

221

222lenData = getUnifRand(5, 100)

223lenData

224+30

225data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

226data

227(+1.8004487434240724, +0.41476514076101489), (+1.6782970514822231, +0.89423627516166682), (+1.6623073806238615, +0.34127353009044825), (+1.2272750410624083, +0.98897560807763507), (+1.4245550912064517, +0.36886445286571545), (+1.2732730766101534, +0.95762982303399702), (+1.3406099964281304, +0.57242511011480213), (+1.3496389954012997, +0.28741804700302442), (+1.7265805970961785, +0.98594988896657432), (+1.6585650824184093, +0.82934496494626697), (+1.2137116765215612, +0.70671467650912667), (+1.3429465996760102, +0.31960624044732366), (+1.9744740350646484, +0.93923939819530489), (+1.7611606678270937, +0.24323427834759881), (+1.5161847521937037, +0.81442329861198559), (+1.1757130354709511, +0.79476071800024795), (+1.8241200031549158, +0.40725017467565616), (+1.6144785172731100, +0.82055737925899042), (+1.7589042943345539, +0.66254774448237586), (+1.6350196726061172, +0.25183031054956284), (+1.0359215603627545, +0.73599574620796004), (+1.8194232846913518, +0.78784869979144134E-1), (+1.7564765481618871, +0.14528846280728869), (+1.2681131089216455, +0.54578550558296679), (+1.5416249948724223, +0.65915823739377322), (+1.9673950477585760, +0.78500183568955861), (+1.1712037999018188, +0.46442928102902636), (+1.0880933101586421, +0.78026556445232831), (+1.5866954767027197, +0.95623731772756992), (+1.9506095556135445, +0.83623652280441296)

228

229adat = getFFTI(getFFTF(data))

230adat

231(+1.8004487434240726, +0.41476514076101484), (+1.6782970514822229, +0.89423627516166670), (+1.6623073806238613, +0.34127353009044814), (+1.2272750410624083, +0.98897560807763496), (+1.4245550912064517, +0.36886445286571534), (+1.2732730766101537, +0.95762982303399702), (+1.3406099964281304, +0.57242511011480190), (+1.3496389954012995, +0.28741804700302437), (+1.7265805970961781, +0.98594988896657432), (+1.6585650824184093, +0.82934496494626675), (+1.2137116765215614, +0.70671467650912667), (+1.3429465996760102, +0.31960624044732372), (+1.9744740350646484, +0.93923939819530466), (+1.7611606678270935, +0.24323427834759864), (+1.5161847521937035, +0.81442329861198526), (+1.1757130354709515, +0.79476071800024806), (+1.8241200031549154, +0.40725017467565605), (+1.6144785172731100, +0.82055737925899008), (+1.7589042943345539, +0.66254774448237563), (+1.6350196726061175, +0.25183031054956290), (+1.0359215603627550, +0.73599574620795993), (+1.8194232846913514, +0.78784869979144051E-1), (+1.7564765481618874, +0.14528846280728866), (+1.2681131089216455, +0.54578550558296668), (+1.5416249948724221, +0.65915823739377299), (+1.9673950477585760, +0.78500183568955861), (+1.1712037999018186, +0.46442928102902631), (+1.0880933101586419, +0.78026556445232842), (+1.5866954767027195, +0.95623731772756970), (+1.9506095556135448, +0.83623652280441318)

232reltol = sqrt(epsilon(1._TKC))

233reltol

234+0.14901161193847656E-7

235isClose(data, adat, reltol = reltol)

236T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

237call setAsserted(all(isClose(data, adat, reltol = reltol)))

238

239lenData = getUnifRand(5, 100)

240lenData

241+53

242data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

243data

244(+1.27155501809505592118063821078231317, +0.214505108574896855318408797942603173E-1), (+1.80611522502047348824037912499848372, +0.490903611956049720217824314950957022E-1), (+1.33660121359928770701474302372059299, +0.123264237657574152534156597895210275), (+1.25802022576804690200399240283048527, +0.717499614363246867999707073815632775), (+1.42210690315309478353359626281878583, +0.511230193303448649033019848612997175E-1), (+1.37365293788493693344102238305389983, +0.405336963766506504625737232264918234), (+1.05693275442659618852468108300908988, +0.612700907028616864534241536733612297), (+1.43987026740317720516532156608421351, +0.312041834546947521638049567325774920), (+1.71295644392137971871622833270618042, +0.735038878839759316140815152377496634), (+1.98685698395500894817571915749355750, +0.758806988169518412699596817982334963), (+1.14917673014516592444310183292291052, +0.577139541691445326208196088203379925), (+1.01177045426836662847092882437539444, +0.879302494934491254071131504454583176), (+1.91089728959623206585852770998698164, +0.274830205522165907169949419585315761), (+1.59313888632058105292702472004885585, +0.639574735889798236260170339199658132), (+1.23350908716891899883900795073942066, +0.309711445742987162693665256119936547), (+1.80546471542812170198325104337754145, +0.237285700157664194001914109038477907), (+1.36893312277087692365381978732284633, +0.630979662478826017268756178200347757), (+1.08058594028689347922887114798562211, +0.698726570959331764378248304150550194), (+1.87171447180961462908834818975454052, +0.109070624408837489670804614771753671), (+1.94647258806440957599504864547865169, +0.212818734483359169214626958313221243), (+1.10290666735177022676422110917357682, +0.508117731920419599349602630044885096E-1), (+1.61559529778063614313635690462054440, +0.408804490294213941227985908005012997), (+1.78544006856918741068767727295592761, +0.965000467543501919033127051337829719), (+1.09869373424471941097124992176932382, +0.615266387113785678834944826966619823), (+1.30639184940798839930672656487007629, +0.630670021936498757386310662504686279), (+1.98496602339134279522507976876201601, +0.412910665131091885321265914322111222), (+1.40957178514232006330918506164762413, +0.540184623188242317257000655333553942), (+1.43853309810639606780320523041541613, +0.730177498873492520438886487915155766), (+1.30926586172118268739596299791150142, +0.929190323587780688279423187087514432), (+1.11685992456933235579104339492858520, +0.443115595192453638842096555819479526), (+1.83772751981908125542008995059867190, +0.152676136882147270909302212380735080), (+1.22657143748530617421461655403408148, +0.110938412231576882122935242384137507), (+1.56550077455547964582612681907920614, +0.755173456204166388984129853537427366), (+1.54015570906585393692985524666195661, +0.909853438908088289453898350023147872), (+1.29951259914540683637392490537742194, +0.890227339957533612962845816882067328), (+1.19817725368472484066539743538862263, +0.405455776659009329132710281448768281), (+1.98399026270164664786987520669409324, +0.366347487868091210304584633551638469), (+1.90867430550755632229918698991001597, +0.754756206625057852868044542444880806), (+1.16366784523440397599812274116370235, +0.201378758735072007672955593038640804), (+1.34758007476213463536750841850117800, +0.116700989527341219387498905783476674), (+1.42311837490785991247424552907615430, +0.497309117151735756456708303059379605), (+1.91212258604721247395600889451231693, +0.296136180750964831620082259587688007), (+1.16551261984697476240611587352027902, +0.672780314061576660388696142534686011), (+1.48624965854674447744979180057222247, +0.145817353944339376890831529345676721), (+1.44060630782646799159440884627427892, +0.572480840565677847748759371710647338), (+1.69664145777816311177047400371390158, +0.769084624198973095527101240742631917), (+1.04201575905982942218133741981921563, +0.502869997328061829729808936752350191), (+1.32034363186786931713435090814284581, +0.859883065781683626936869825303756160), (+1.21756369305338903745008088353277845, +0.923610453808759572329745546961200204), (+1.83281242156282134294614836702248238, +0.866074158173131510121765200883690067), (+1.73003627994752494329338304798269203, +0.141143144158346354919357688215784256), (+1.97494816595503237643979732661226194, +0.970165414351953023765095276593756813), (+1.42257209161548195597560627498976673, +0.214069574697502034609562102923404158)

245

246adat = getFFTI(getFFTF(data))

247adat

248(+1.27155501809505592118063821078231086, +0.214505108574896855318408797942594897E-1), (+1.80611522502047348824037912499848391, +0.490903611956049720217824314950958948E-1), (+1.33660121359928770701474302372059299, +0.123264237657574152534156597895210396), (+1.25802022576804690200399240283048508, +0.717499614363246867999707073815633064), (+1.42210690315309478353359626281878583, +0.511230193303448649033019848612996814E-1), (+1.37365293788493693344102238305390002, +0.405336963766506504625737232264918475), (+1.05693275442659618852468108300909007, +0.612700907028616864534241536733612200), (+1.43987026740317720516532156608421370, +0.312041834546947521638049567325775112), (+1.71295644392137971871622833270618003, +0.735038878839759316140815152377497020), (+1.98685698395500894817571915749355712, +0.758806988169518412699596817982335155), (+1.14917673014516592444310183292291168, +0.577139541691445326208196088203380118), (+1.01177045426836662847092882437539463, +0.879302494934491254071131504454583561), (+1.91089728959623206585852770998698068, +0.274830205522165907169949419585315905), (+1.59313888632058105292702472004885605, +0.639574735889798236260170339199657939), (+1.23350908716891899883900795073941970, +0.309711445742987162693665256119936354), (+1.80546471542812170198325104337754164, +0.237285700157664194001914109038478244), (+1.36893312277087692365381978732284614, +0.630979662478826017268756178200347949), (+1.08058594028689347922887114798562192, +0.698726570959331764378248304150550579), (+1.87171447180961462908834818975453994, +0.109070624408837489670804614771753635), (+1.94647258806440957599504864547865150, +0.212818734483359169214626958313221243), (+1.10290666735177022676422110917357663, +0.508117731920419599349602630044886059E-1), (+1.61559529778063614313635690462054363, +0.408804490294213941227985908005013093), (+1.78544006856918741068767727295592799, +0.965000467543501919033127051337829815), (+1.09869373424471941097124992176932363, +0.615266387113785678834944826966619630), (+1.30639184940798839930672656487007590, +0.630670021936498757386310662504685990), (+1.98496602339134279522507976876201544, +0.412910665131091885321265914322110837), (+1.40957178514232006330918506164762297, +0.540184623188242317257000655333554134), (+1.43853309810639606780320523041541498, +0.730177498873492520438886487915155766), (+1.30926586172118268739596299791150084, +0.929190323587780688279423187087514240), (+1.11685992456933235579104339492858501, +0.443115595192453638842096555819479430), (+1.83772751981908125542008995059867171, +0.152676136882147270909302212380734911), (+1.22657143748530617421461655403408186, +0.110938412231576882122935242384137699), (+1.56550077455547964582612681907920575, +0.755173456204166388984129853537427463), (+1.54015570906585393692985524666195641, +0.909853438908088289453898350023147679), (+1.29951259914540683637392490537742155, +0.890227339957533612962845816882067425), (+1.19817725368472484066539743538862205, +0.405455776659009329132710281448768426), (+1.98399026270164664786987520669409305, +0.366347487868091210304584633551638613), (+1.90867430550755632229918698991001616, +0.754756206625057852868044542444881095), (+1.16366784523440397599812274116370216, +0.201378758735072007672955593038640996), (+1.34758007476213463536750841850117723, +0.116700989527341219387498905783476482), (+1.42311837490785991247424552907615430, +0.497309117151735756456708303059379509), (+1.91212258604721247395600889451231596, +0.296136180750964831620082259587687959), (+1.16551261984697476240611587352027921, +0.672780314061576660388696142534686011), (+1.48624965854674447744979180057222363, +0.145817353944339376890831529345676937), (+1.44060630782646799159440884627427873, +0.572480840565677847748759371710647531), (+1.69664145777816311177047400371390138, +0.769084624198973095527101240742632399), (+1.04201575905982942218133741981921563, +0.502869997328061829729808936752350287), (+1.32034363186786931713435090814284600, +0.859883065781683626936869825303755967), (+1.21756369305338903745008088353277864, +0.923610453808759572329745546961200589), (+1.83281242156282134294614836702248219, +0.866074158173131510121765200883690452), (+1.73003627994752494329338304798269184, +0.141143144158346354919357688215784569), (+1.97494816595503237643979732661226175, +0.970165414351953023765095276593757006), (+1.42257209161548195597560627498976692, +0.214069574697502034609562102923404447)

249reltol = sqrt(epsilon(1._TKC))

250reltol

251+0.138777878078144567552953958511352539E-16

252isClose(data, adat, reltol = reltol)

253T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

254call setAsserted(all(isClose(data, adat, reltol = reltol)))

255

256lenData = getUnifRand(5, 100)

257lenData

258+71

259data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

260data

261+1.56763291, +1.11115646, +1.37574506, +1.77428412, +1.38485909, +1.99837351, +1.08507538, +1.76725054, +1.91298318, +1.64693201, +1.88457251, +1.92599475, +1.82368565, +1.83310425, +1.20057070, +1.85427642, +1.53394961, +1.02663612, +1.26170278, +1.07188106, +1.98274791, +1.22251129, +1.88372123, +1.65666986, +1.32327557, +1.66315913, +1.57800889, +1.57299113, +1.64526010, +1.90029740, +1.72851241, +1.96178222, +1.77062488, +1.97181988, +1.84226167, +1.79153812, +1.14906025, +1.70797694, +1.70925093, +1.46300721, +1.40157866, +1.93820369, +1.49701834, +1.68472052, +1.25493145, +1.00592256, +1.28248429, +1.49652779, +1.10807800, +1.33957005, +1.39638114, +1.57705593, +1.71995151, +1.78775287, +1.93667483, +1.66689968, +1.76022589, +1.07118297, +1.41720402, +1.44322002, +1.02997518, +1.03124714, +1.98810101, +1.23439169, +1.76461709, +1.17890048, +1.44272423, +1.85417557, +1.39055014, +1.61222720, +1.99875414

262

263adat = getFFTI(getFFTF(data))

264adat

265+1.56763148, +1.11115527, +1.37574470, +1.77428412, +1.38485765, +1.99837565, +1.08507335, +1.76725149, +1.91298425, +1.64693153, +1.88457322, +1.92599523, +1.82368529, +1.83310556, +1.20056796, +1.85427809, +1.53395069, +1.02663279, +1.26170385, +1.07187617, +1.98275435, +1.22250581, +1.88372433, +1.65667045, +1.32327163, +1.66316032, +1.57800817, +1.57299066, +1.64525890, +1.90030038, +1.72851050, +1.96178555, +1.77062333, +1.97182345, +1.84226191, +1.79154074, +1.14904928, +1.70797992, +1.70925236, +1.46300614, +1.40157473, +1.93820965, +1.49701548, +1.68472397, +1.25493002, +1.00591922, +1.28248322, +1.49652958, +1.10807443, +1.33957016, +1.39637995, +1.57705712, +1.71995175, +1.78775382, +1.93667662, +1.66689980, +1.76022756, +1.07118046, +1.41720414, +1.44322014, +1.02997351, +1.03124571, +1.98810387, +1.23438954, +1.76461864, +1.17889893, +1.44272459, +1.85417664, +1.39054894, +1.61222684, +1.99875343

266reltol = sqrt(epsilon(1._TKC))

267reltol

268+0.345266977E-3

269isClose(data, adat, reltol = reltol)

270T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

271call setAsserted(all(isClose(data, adat, reltol = reltol)))

272

273lenData = getUnifRand(5, 100)

274lenData

275+23

276data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

277data

278+1.1801683748853127, +1.8365402229949528, +1.8495499683932723, +1.8353518506611612, +1.5403997376270988, +1.5719272490690286, +1.5135981068315867, +1.7393759808788634, +1.1065344550210869, +1.9170025153366004, +1.7978925974794959, +1.5239855506689444, +1.5264834631154998, +1.7013500720430201, +1.9857125043890083, +1.0016872349343711, +1.4133883990549898, +1.6242411457842667, +1.4491996253563451, +1.3288102499156378, +1.0243573651269184, +1.8628968759389948, +1.0621036108697302

279

280adat = getFFTI(getFFTF(data))

281adat

282+1.1801683748853138, +1.8365402229949528, +1.8495499683932726, +1.8353518506611606, +1.5403997376270979, +1.5719272490690279, +1.5135981068315862, +1.7393759808788616, +1.1065344550210905, +1.9170025153365975, +1.7978925974794946, +1.5239855506689459, +1.5264834631155009, +1.7013500720430197, +1.9857125043890043, +1.0016872349343746, +1.4133883990549898, +1.6242411457842654, +1.4491996253563451, +1.3288102499156367, +1.0243573651269184, +1.8628968759389943, +1.0621036108697306

283reltol = sqrt(epsilon(1._TKC))

284reltol

285+0.14901161193847656E-7

286isClose(data, adat, reltol = reltol)

287T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

288call setAsserted(all(isClose(data, adat, reltol = reltol)))

289

290lenData = getUnifRand(5, 100)

291lenData

292+94

293data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

294data

295+1.06883151802872865060041991955122633, +1.82729877714574930240645091074411099, +1.30389929036438201799955937830921831, +1.95288398319516477070054175969628830, +1.80017428255492072638481778335602524, +1.56983688381575258176573780617038871, +1.88339153142726505141175112284062937, +1.80463843547835921669479698044357099, +1.84671711348999159644595174720393085, +1.16809892731011922159156445323307383, +1.20238627554473854560437565495277914, +1.78554233718228335417349187817152580, +1.40653011860690034498228084207382161, +1.08436507479936651969069959592853485, +1.12828282151369768731377181714897133, +1.09789050316421202074261184934538799, +1.00056777720571932498498550160319688, +1.21264051233235087106578449636570528, +1.03302447343338917474695259089402402, +1.00636900253845574753469010154356252, +1.79239966371336882925266152487590750, +1.43108257140291891893999759951371070, +1.97330889743680039793707006930572366, +1.81779498735410695578751606338485767, +1.69641480737571150910891721789582822, +1.20535635722109139662391999229626673, +1.69789190421475434374053194525653499, +1.68148382257706033866094470454963008, +1.11772435131947773031794875618250328, +1.28726415772362064321403960200807869, +1.75388614030058800336208976336608666, +1.64527764977258066669315887432814699, +1.33391646008061054443299485155388859, +1.47404369375289438220381220049489895, +1.24973241498256903378090464877703422, +1.38197409744941032294153764587756281, +1.42594324855997207206738564856848174, +1.71066652274889986697775386448141351, +1.20495288734410373741277389787621122, +1.95552189044028195328171684500487111, +1.55658084131498964527795336997829604, +1.94951860399617878470348155876082797, +1.75119278388472507299259344907176123, +1.57446900122274012064509130502659706, +1.98957712189762112733811505806387784, +1.01417478511884317637331006922561341, +1.58045957173832584068464450365606327, +1.30385348043760989251136569520911992, +1.06046209201469493253542485223565319, +1.81161901233672943886498692785058540, +1.92481603042770532401128414291130620, +1.77434171051215412506801488101719747, +1.61412990065572538027727969836643188, +1.53313001847488633773547565834859851, +1.84926784334785879142754935774728819, +1.57202731985366341075385696852007836, +1.83096792592605688486376753722313893, +1.60527724393136312850124542049302585, +1.08977638372279000517538802191345251, +1.03037604862388275485147365276847156, +1.53999144526835023691403980946249566, +1.17168579843664847767664755621564855, +1.27500695903213972517742195689258530, +1.01683462389497503368129126715688483, +1.17127886202656511702939577504483234, +1.99910676300974073279282731820215440, +1.64470752217540932008917548573979786, +1.80237505970506231833524658464411421, +1.37239662569898034193873643578853279, +1.75535733933834201117769756973058640, +1.55608143083492740865907394916596892, +1.71519397373987071687690419286857859, +1.87082093691163876337267421633330392, +1.61810144489328511956074272472348736, +1.01789158298751384913154389391634389, +1.03604601965172855543609851388163359, +1.11241269540676380743234125676760298, +1.19571027227209700220457562420264975, +1.37826029489392109712443497072977730, +1.22089435728282036172768455887912002, +1.90788411019641607090616823439128148, +1.20998419371922936292716882457540074, +1.58304840286042303796279302077088007, +1.32495918476344230195976895702662518, +1.64749569077784916685048498669518474, +1.29096588107530050207459348170952713, +1.78497731553284733219041632190004650, +1.16616681043326102429108314873798980, +1.69564726091618978431266844625677061, +1.96268683056794342154109855778530501, +1.18623994225803927655898081878041993, +1.86273061082430106544935613519396779, +1.72918485686010519876886494570136315, +1.52319782582612203834524309709173483

296

297adat = getFFTI(getFFTF(data))

298adat

299+1.06883151802872865060041991955122652, +1.82729877714574930240645091074411041, +1.30389929036438201799955937830921889, +1.95288398319516477070054175969628869, +1.80017428255492072638481778335602543, +1.56983688381575258176573780617038852, +1.88339153142726505141175112284062956, +1.80463843547835921669479698044357118, +1.84671711348999159644595174720393008, +1.16809892731011922159156445323307383, +1.20238627554473854560437565495277875, +1.78554233718228335417349187817152580, +1.40653011860690034498228084207382123, +1.08436507479936651969069959592853465, +1.12828282151369768731377181714897152, +1.09789050316421202074261184934538934, +1.00056777720571932498498550160319765, +1.21264051233235087106578449636570528, +1.03302447343338917474695259089402459, +1.00636900253845574753469010154356290, +1.79239966371336882925266152487590654, +1.43108257140291891893999759951370993, +1.97330889743680039793707006930572289, +1.81779498735410695578751606338485767, +1.69641480737571150910891721789582687, +1.20535635722109139662391999229626538, +1.69789190421475434374053194525653422, +1.68148382257706033866094470454962911, +1.11772435131947773031794875618250194, +1.28726415772362064321403960200807811, +1.75388614030058800336208976336608763, +1.64527764977258066669315887432814815, +1.33391646008061054443299485155388936, +1.47404369375289438220381220049489992, +1.24973241498256903378090464877703460, +1.38197409744941032294153764587756262, +1.42594324855997207206738564856848213, +1.71066652274889986697775386448141370, +1.20495288734410373741277389787621006, +1.95552189044028195328171684500487169, +1.55658084131498964527795336997829450, +1.94951860399617878470348155876082662, +1.75119278388472507299259344907176142, +1.57446900122274012064509130502659860, +1.98957712189762112733811505806387726, +1.01417478511884317637331006922561244, +1.58045957173832584068464450365606462, +1.30385348043760989251136569520912243, +1.06046209201469493253542485223565435, +1.81161901233672943886498692785058790, +1.92481603042770532401128414291130640, +1.77434171051215412506801488101719612, +1.61412990065572538027727969836643226, +1.53313001847488633773547565834859928, +1.84926784334785879142754935774728684, +1.57202731985366341075385696852007721, +1.83096792592605688486376753722313815, +1.60527724393136312850124542049302682, +1.08977638372279000517538802191345174, +1.03037604862388275485147365276847233, +1.53999144526835023691403980946249681, +1.17168579843664847767664755621564951, +1.27500695903213972517742195689258607, +1.01683462389497503368129126715688483, +1.17127886202656511702939577504483311, +1.99910676300974073279282731820215613, +1.64470752217540932008917548573979748, +1.80237505970506231833524658464411305, +1.37239662569898034193873643578853124, +1.75535733933834201117769756973058486, +1.55608143083492740865907394916596757, +1.71519397373987071687690419286857705, +1.87082093691163876337267421633330334, +1.61810144489328511956074272472348717, +1.01789158298751384913154389391634312, +1.03604601965172855543609851388163340, +1.11241269540676380743234125676760356, +1.19571027227209700220457562420265071, +1.37826029489392109712443497072977769, +1.22089435728282036172768455887911983, +1.90788411019641607090616823439128148, +1.20998419371922936292716882457540170, +1.58304840286042303796279302077087988, +1.32495918476344230195976895702662537, +1.64749569077784916685048498669518416, +1.29096588107530050207459348170952694, +1.78497731553284733219041632190004631, +1.16616681043326102429108314873798961, +1.69564726091618978431266844625677099, +1.96268683056794342154109855778530521, +1.18623994225803927655898081878041993, +1.86273061082430106544935613519396779, +1.72918485686010519876886494570136354, +1.52319782582612203834524309709173560

300reltol = sqrt(epsilon(1._TKC))

301reltol

302+0.138777878078144567552953958511352539E-16

303isClose(data, adat, reltol = reltol)

304T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

305call setAsserted(all(isClose(data, adat, reltol = reltol)))

306

307lenData = getUnifRand(5, 100)

308lenData

309+64

310data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

311data

312(+1.69837475, +0.521612167E-2), (+1.38484526, +0.284463942), (+1.58500385, +0.659159660), (+1.90336680, +0.200283527E-2), (+1.46439481, +0.496157408E-1), (+1.36364126, +0.716370106), (+1.12722516, +0.510145664), (+1.16126418, +0.187902868), (+1.13890839, +0.589271069), (+1.69750023, +0.743434429), (+1.63762927, +0.423268914), (+1.82800937, +0.854105115), (+1.83333516, +0.771437049), (+1.60156226, +0.321624041), (+1.78733861, +0.823370159), (+1.56255567, +0.131330371), (+1.93166006, +0.527018905), (+1.74679649, +0.888686419), (+1.06603181, +0.828316748), (+1.38332677, +0.854225099), (+1.06301987, +0.892373383), (+1.87390518, +0.364069939E-1), (+1.79454017, +0.706493258E-1), (+1.58030391, +0.570252061), (+1.70286250, +0.270077169), (+1.45564485, +0.940308809), (+1.01520669, +0.311849594), (+1.05778456, +0.867298543), (+1.73016059, +0.167995691E-1), (+1.07352901, +0.342783213), (+1.37387836, +0.686342120), (+1.48633075, +0.735072136), (+1.65452242, +0.456142902), (+1.22416282, +0.862740278E-1), (+1.91502714, +0.732629299), (+1.78180063, +0.762709439), (+1.73783767, +0.444832027), (+1.84997654, +0.531260729), (+1.80636334, +0.408566236), (+1.12419987, +0.768957555), (+1.12219822, +0.418807149), (+1.25295591, +0.481781662), (+1.03926396, +0.249899805), (+1.09494376, +0.271156192), (+1.01707292, +0.545855224), (+1.01066065, +0.920975208), (+1.60035849, +0.470159233), (+1.73305798, +0.965571404E-2), (+1.82115722, +0.849454165), (+1.29163098, +0.537212312), (+1.71532059, +0.448722839), (+1.94645572, +0.136231959), (+1.87190175, +0.445864975), (+1.53842020, +0.858918667), (+1.12171698, +0.620968997), (+1.68109262, +0.931198597E-1), (+1.86715341, +0.719594598), (+1.40973413, +0.294008374), (+1.42153406, +0.300534189), (+1.31617737, +0.989454985E-2), (+1.08574069, +0.941194236), (+1.79755592, +0.898665190), (+1.10647297, +0.608563125), (+1.39233267, +0.881037474)

313

314adat = getFFTI(getFFTF(data))

315adat

316(+1.69837463, +0.521622598E-2), (+1.38484526, +0.284464061), (+1.58500385, +0.659159720), (+1.90336668, +0.200286508E-2), (+1.46439457, +0.496159047E-1), (+1.36364126, +0.716370106), (+1.12722516, +0.510145664), (+1.16126406, +0.187902838), (+1.13890827, +0.589271188), (+1.69750023, +0.743434548), (+1.63762927, +0.423269033), (+1.82800925, +0.854105115), (+1.83333516, +0.771437168), (+1.60156226, +0.321624130), (+1.78733861, +0.823370218), (+1.56255555, +0.131330401), (+1.93165994, +0.527018905), (+1.74679625, +0.888686597), (+1.06603193, +0.828316808), (+1.38332665, +0.854225159), (+1.06301975, +0.892373443), (+1.87390518, +0.364070237E-1), (+1.79454005, +0.706493556E-1), (+1.58030379, +0.570252061), (+1.70286250, +0.270077318), (+1.45564473, +0.940308928), (+1.01520681, +0.311849654), (+1.05778444, +0.867298484), (+1.73016059, +0.167997479E-1), (+1.07352901, +0.342783213), (+1.37387824, +0.686342180), (+1.48633063, +0.735072136), (+1.65452230, +0.456143022), (+1.22416282, +0.862741619E-1), (+1.91502714, +0.732629359), (+1.78180039, +0.762709498), (+1.73783755, +0.444832146), (+1.84997654, +0.531260729), (+1.80636334, +0.408566296), (+1.12419975, +0.768957615), (+1.12219822, +0.418807268), (+1.25295591, +0.481781811), (+1.03926396, +0.249899879), (+1.09494364, +0.271156222), (+1.01707292, +0.545855284), (+1.01066065, +0.920975089), (+1.60035837, +0.470159322), (+1.73305798, +0.965573639E-2), (+1.82115698, +0.849454284), (+1.29163086, +0.537212431), (+1.71532059, +0.448722869), (+1.94645560, +0.136231989), (+1.87190175, +0.445865124), (+1.53842020, +0.858918667), (+1.12171686, +0.620969057), (+1.68109262, +0.931198299E-1), (+1.86715341, +0.719594717), (+1.40973413, +0.294008374), (+1.42153406, +0.300534189), (+1.31617725, +0.989449024E-2), (+1.08574069, +0.941194296), (+1.79755592, +0.898665190), (+1.10647297, +0.608563244), (+1.39233267, +0.881037474)

317reltol = sqrt(epsilon(1._TKC))

318reltol

319+0.345266977E-3

320isClose(data, adat, reltol = reltol)

321T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

322call setAsserted(all(isClose(data, adat, reltol = reltol)))

323

324lenData = getUnifRand(5, 100)

325lenData

326+23

327data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

328data

329(+1.4190955295122962, +0.67375932077157408), (+1.2676026207173996, +0.70008565603843387), (+1.1905058078667561, +0.28395482309141540), (+1.6041529229372946, +0.21480114168467646), (+1.9299553189750500, +0.15705894878615589), (+1.7108919387995642, +0.30896682232315786E-1), (+1.4408843261666822, +0.14470463827797142), (+1.7330331011816393, +0.34404749954598546), (+1.8176205949704174, +0.21061590952103881), (+1.4589153962729009, +0.61249606430047010), (+1.0074849419880207, +0.17855212397615883), (+1.4501542179361959, +0.25298985654647188), (+1.4752504126215364, +0.63811443932544487), (+1.1598149384283509, +0.50091931481549523), (+1.2233916774620557, +0.10713331506732438), (+1.8302275483152148, +0.93795199270230600), (+1.5500209941436056, +0.64744190485466624), (+1.8045356389457516, +0.46492528836521940), (+1.8945175998887671, +0.90166424518673072E-1), (+1.2681804485845425, +0.68952212763843856), (+1.9951375840431411, +0.44074137256138290E-1), (+1.7717547842517090, +0.53538093940846077E-1), (+1.0258042702895176, +0.26120062434369917)

330

331adat = getFFTI(getFFTF(data))

332adat

333(+1.4190955295122938, +0.67375932077157363), (+1.2676026207174003, +0.70008565603843409), (+1.1905058078667561, +0.28395482309141545), (+1.6041529229372948, +0.21480114168467640), (+1.9299553189750505, +0.15705894878615570), (+1.7108919387995645, +0.30896682232316057E-1), (+1.4408843261666828, +0.14470463827797139), (+1.7330331011816393, +0.34404749954598557), (+1.8176205949704172, +0.21061590952103862), (+1.4589153962729011, +0.61249606430047021), (+1.0074849419880212, +0.17855212397615869), (+1.4501542179361950, +0.25298985654647171), (+1.4752504126215360, +0.63811443932544476), (+1.1598149384283514, +0.50091931481549534), (+1.2233916774620561, +0.10713331506732429), (+1.8302275483152144, +0.93795199270230589), (+1.5500209941436058, +0.64744190485466635), (+1.8045356389457521, +0.46492528836521946), (+1.8945175998887671, +0.90166424518673211E-1), (+1.2681804485845427, +0.68952212763843845), (+1.9951375840431411, +0.44074137256138277E-1), (+1.7717547842517092, +0.53538093940846201E-1), (+1.0258042702895183, +0.26120062434369939)

334reltol = sqrt(epsilon(1._TKC))

335reltol

336+0.14901161193847656E-7

337isClose(data, adat, reltol = reltol)

338T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

339call setAsserted(all(isClose(data, adat, reltol = reltol)))

340

341lenData = getUnifRand(5, 100)

342lenData

343+6

344data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

345data

346(+1.50349138002872760983454064467871644, +0.935488000091443361779637597527095210), (+1.15370414010882511795820132756712462, +0.215572328659263385503996211446832264E-1), (+1.16156678072048145410795519217989903, +0.510164447882898368140382967319013532), (+1.88108663635307008798600150252304512, +0.831523557634523514906707594336869342), (+1.40520075586807923329623578429589826, +0.992000201297716820308100831952355721), (+1.63309136509936885956596190601161516, +0.172544309113350368285889674346101644)

347

348adat = getFFTI(getFFTF(data))

349adat

350(+1.50349138002872760983454064467871664, +0.935488000091443361779637597527095210), (+1.15370414010882511795820132756712423, +0.215572328659263385503996211446831301E-1), (+1.16156678072048145410795519217989903, +0.510164447882898368140382967319013532), (+1.88108663635307008798600150252304512, +0.831523557634523514906707594336869342), (+1.40520075586807923329623578429589807, +0.992000201297716820308100831952355625), (+1.63309136509936885956596190601161477, +0.172544309113350368285889674346101596)

351reltol = sqrt(epsilon(1._TKC))

352reltol

353+0.138777878078144567552953958511352539E-16

354isClose(data, adat, reltol = reltol)

355T, T, T, T, T, T

356call setAsserted(all(isClose(data, adat, reltol = reltol)))

357

358lenData = getUnifRand(5, 100)

359lenData

360+93

361data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

362data

363+1.98276579, +1.71579814, +1.28206515, +1.80845809, +1.67832351, +1.64937544, +1.93111467, +1.77374899, +1.20298445, +1.15981722, +1.86703765, +1.46571243, +1.53595376, +1.40695500, +1.77823067, +1.01640296, +1.34917784, +1.37772954, +1.77754879, +1.37328243, +1.10528100, +1.25918984, +1.95643401, +1.48088217, +1.74507582, +1.00515521, +1.40751767, +1.03010726, +1.91481078, +1.45886660, +1.87772369, +1.67266405, +1.44970834, +1.46594262, +1.34635329, +1.91729748, +1.14958489, +1.83736479, +1.56072116, +1.40936804, +1.29438519, +1.90400541, +1.50203228, +1.29149556, +1.92939758, +1.19367409, +1.81522179, +1.59683704, +1.95405412, +1.27643323, +1.39419079, +1.88260603, +1.75628960, +1.45161247, +1.16738069, +1.10220909, +1.05762005, +1.09176314, +1.07982814, +1.99815595, +1.96207380, +1.55923796, +1.35647368, +1.54173183, +1.24499774, +1.44394803, +1.18538404, +1.43758798, +1.38642621, +1.92463374, +1.92597961, +1.43904781, +1.29029584, +1.25245810, +1.28244793, +1.90340877, +1.02453041, +1.99778414, +1.44775736, +1.71363521, +1.52040744, +1.46985817, +1.83483529, +1.78685975, +1.31649995, +1.28848529, +1.13478518, +1.55933809, +1.20850325, +1.35670519, +1.63296413, +1.78080487, +1.75579453

364

365adat = getFFTI(getFFTF(data))

366adat

367+1.98276687, +1.71579885, +1.28206551, +1.80845785, +1.67832410, +1.64937520, +1.93111479, +1.77374864, +1.20298469, +1.15981781, +1.86703825, +1.46571219, +1.53595281, +1.40695500, +1.77822924, +1.01640403, +1.34917808, +1.37772965, +1.77754724, +1.37328303, +1.10528159, +1.25919116, +1.95643270, +1.48088133, +1.74507344, +1.00515831, +1.40751815, +1.03011048, +1.91480947, +1.45886672, +1.87772083, +1.67266369, +1.44971001, +1.46594298, +1.34635627, +1.91729522, +1.14958596, +1.83736169, +1.56072259, +1.40936756, +1.29438770, +1.90400386, +1.50202823, +1.29149556, +1.92939425, +1.19368196, +1.81522095, +1.59683919, +1.95405197, +1.27644300, +1.39419591, +1.88260221, +1.75628257, +1.45160782, +1.16738164, +1.10221303, +1.05762529, +1.09176624, +1.07982838, +1.99815035, +1.96207023, +1.55923796, +1.35647631, +1.54173279, +1.24499857, +1.44394743, +1.18538570, +1.43759012, +1.38642716, +1.92463124, +1.92597663, +1.43904710, +1.29029715, +1.25246048, +1.28244948, +1.90340722, +1.02453101, +1.99778152, +1.44775736, +1.71363497, +1.52040851, +1.46985793, +1.83483410, +1.78685820, +1.31649995, +1.28848660, +1.13478553, +1.55933845, +1.20850325, +1.35670531, +1.63296413, +1.78080535, +1.75579429

368reltol = sqrt(epsilon(1._TKC))

369reltol

370+0.345266977E-3

371isClose(data, adat, reltol = reltol)

372T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

373call setAsserted(all(isClose(data, adat, reltol = reltol)))

374

375lenData = getUnifRand(5, 100)

376lenData

377+80

378data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

379data

380+1.3581073167119553, +1.5659512957646360, +1.6287371027450233, +1.6717766771918283, +1.2138035127028126, +1.7275771672068663, +1.1491019222386831, +1.1603143075711397, +1.6618735489600165, +1.1537858737398903, +1.8820754397692587, +1.4562784368390900, +1.6789324437342188, +1.6932609450857177, +1.9609783670679488, +1.8134698504663325, +1.5347879243282847, +1.7706197643130217, +1.9371479750029708, +1.4310911163652877, +1.5070509693513232, +1.9625974898606362, +1.4783185473062681, +1.2357072180658908, +1.3344005703264767, +1.0632696231503354, +1.3923737771491558, +1.4885334669196513, +1.8353060794758320, +1.6780337871165860, +1.5513498632462772, +1.6990555166949373, +1.5596779602257442, +1.1091130104279259, +1.7482555818483050, +1.3571793977342677, +1.7753560260073220, +1.6444450845731879, +1.0323731772286056, +1.3037667033484230, +1.0864247210498488, +1.2373464556682845, +1.4270546581756141, +1.4328047445514569, +1.8216033892402277, +1.4756234173175262, +1.9308381722597852, +1.3609980851052206, +1.1470198647584571, +1.0354218024193511, +1.6047692459325988, +1.8670102613571857, +1.3416338916866999, +1.3000649759094505, +1.0072789203850718, +1.1564328825361265, +1.8470602358292987, +1.3916749682503542, +1.0635978809179685, +1.7042184455819804, +1.4495184163879298, +1.0382839063046356, +1.9811899671533779, +1.8075197396731721, +1.1093782135756580, +1.9748364599776154, +1.0487897649086106, +1.8877135702345766, +1.6232755700474022, +1.0029353246400956, +1.2814853784443332, +1.9638739865773922, +1.1760174073057881, +1.7342987306390127, +1.3667426145242092, +1.5998435620141040, +1.9630232244814947, +1.1054935025897132, +1.5369636711120289, +1.9701965016080223

381

382adat = getFFTI(getFFTF(data))

383adat

384+1.3581073167119555, +1.5659512957646360, +1.6287371027450233, +1.6717766771918290, +1.2138035127028131, +1.7275771672068669, +1.1491019222386833, +1.1603143075711400, +1.6618735489600169, +1.1537858737398903, +1.8820754397692594, +1.4562784368390904, +1.6789324437342188, +1.6932609450857183, +1.9609783670679493, +1.8134698504663327, +1.5347879243282843, +1.7706197643130217, +1.9371479750029708, +1.4310911163652882, +1.5070509693513232, +1.9625974898606366, +1.4783185473062681, +1.2357072180658908, +1.3344005703264767, +1.0632696231503354, +1.3923737771491560, +1.4885334669196515, +1.8353060794758318, +1.6780337871165862, +1.5513498632462772, +1.6990555166949368, +1.5596779602257440, +1.1091130104279256, +1.7482555818483050, +1.3571793977342679, +1.7753560260073220, +1.6444450845731884, +1.0323731772286056, +1.3037667033484233, +1.0864247210498488, +1.2373464556682843, +1.4270546581756145, +1.4328047445514569, +1.8216033892402281, +1.4756234173175260, +1.9308381722597852, +1.3609980851052204, +1.1470198647584569, +1.0354218024193509, +1.6047692459325988, +1.8670102613571862, +1.3416338916866999, +1.3000649759094509, +1.0072789203850716, +1.1564328825361267, +1.8470602358292987, +1.3916749682503542, +1.0635978809179687, +1.7042184455819804, +1.4495184163879302, +1.0382839063046354, +1.9811899671533781, +1.8075197396731721, +1.1093782135756576, +1.9748364599776154, +1.0487897649086104, +1.8877135702345769, +1.6232755700474020, +1.0029353246400958, +1.2814853784443330, +1.9638739865773922, +1.1760174073057879, +1.7342987306390125, +1.3667426145242094, +1.5998435620141043, +1.9630232244814945, +1.1054935025897132, +1.5369636711120287, +1.9701965016080221

385reltol = sqrt(epsilon(1._TKC))

386reltol

387+0.14901161193847656E-7

388isClose(data, adat, reltol = reltol)

389T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

390call setAsserted(all(isClose(data, adat, reltol = reltol)))

391

392lenData = getUnifRand(5, 100)

393lenData

394+91

395data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

396data

397+1.20945873204685109174235829373438936, +1.46428004791782169618624809322015263, +1.59575863561465649994104127920572463, +1.90576339558179791661059917659082541, +1.55256278265544205602012659774032836, +1.72496857034355976977966762912737661, +1.48094701565346244818019352157277566, +1.87737430557072824794792347582878476, +1.38233612053072908920651347840768122, +1.29482121053130388511775621750451120, +1.03238429620814106365257800907977738, +1.72480530287618390364158368533524086, +1.57652618209866299967510613642272317, +1.15696886727885863668552207320645177, +1.92189495485754819341564015934679934, +1.16089356474256769956013026261138339, +1.45240621803655034696222181192605736, +1.19412662852784186501935683365894407, +1.71000910708034063918521736060261764, +1.38342390023966562049934387025798802, +1.95581815631370800259216589320408846, +1.73146849225889824100965348462891891, +1.88160323942479552052955802262456846, +1.70613867354516950263995866187978481, +1.17811725051677264054183267503298612, +1.40776820301490777725874945880320817, +1.47540562425612333737881685700334354, +1.77818001817159255394620893764268391, +1.88592489659083283914079649124477318, +1.39755283294327894539226489711603849, +1.63930181459427268584809180173485756, +1.18266030879927831083590442260812492, +1.62204816107836702122629253705543845, +1.61161346241150201449736126952418707, +1.51930784711663588029704877224993061, +1.66148417756350329831671979421693125, +1.86135522818111826024878922441238546, +1.64525518313548726322608575349646855, +1.10625532494321101715789863181665062, +1.27382272269073036176841898481279551, +1.80847467324143841134429104184201382, +1.97577990474063300906297098745329479, +1.95565773669314514739791998137457871, +1.04909224119529991017504064015152266, +1.06716021865535093911088640019629585, +1.10908791262720532519926217597549620, +1.41563232476368490922305909387897527, +1.89973814141138245758670768834727448, +1.10923175351551434564152112234329466, +1.81606369113658432102892987400609227, +1.76805239809126905484300688547618296, +1.98141953345961013295195598542194414, +1.94061898907671389571474660426716619, +1.36869604305002803278635795661254189, +1.64104768735264599287487795613128129, +1.51512793228855628092315381204563029, +1.33542000424019218408476708063380256, +1.86713202746210787772770287615654620, +1.17554572353085181516093010043852920, +1.69834370458449240492316612917905920, +1.99097739403873465757333055909691710, +1.19948842751692130362521909009412234, +1.61166552704220279547467541891966191, +1.67087519776481304801374012584891732, +1.31643624420216895064797790401509019, +1.22451126654724041429788905810418306, +1.60938841136455842325028498451635524, +1.16821631846252618264241197138532660, +1.12075866149856614988441520269732106, +1.27282460303027235792415023093280048, +1.06398802850843896208955595564657797, +1.72917114217849634025635108042133939, +1.27178249241200843573845731631211163, +1.87005648612992776834120273841325021, +1.33486220340429476450723053137144644, +1.28935075422565700619421589861326357, +1.66687744710373896568524324994944688, +1.23847620859039513089016725568253070, +1.47324303748673595874088858629687809, +1.73402195600685946541521494487924285, +1.80879124678939837370705775601378301, +1.73034650064046894979231200735895702, +1.51581786224228979006861831994335233, +1.54318426182850189943375392499904559, +1.94238120876463205449212144929864210, +1.86504973369402601583354954372036173, +1.90122363500746495894100089271388792, +1.33206274760861703274512760541279678, +1.43475650429717945969228774856726914, +1.17037347551656725647407791654805332, +1.42271348866800947509863840167621758

398

399adat = getFFTI(getFFTF(data))

400adat

401+1.20945873204685109174235829373438897, +1.46428004791782169618624809322015186, +1.59575863561465649994104127920572482, +1.90576339558179791661059917659082580, +1.55256278265544205602012659774032836, +1.72496857034355976977966762912737681, +1.48094701565346244818019352157277586, +1.87737430557072824794792347582878476, +1.38233612053072908920651347840768083, +1.29482121053130388511775621750451217, +1.03238429620814106365257800907977758, +1.72480530287618390364158368533524124, +1.57652618209866299967510613642272375, +1.15696886727885863668552207320645177, +1.92189495485754819341564015934679837, +1.16089356474256769956013026261138281, +1.45240621803655034696222181192605736, +1.19412662852784186501935683365894349, +1.71000910708034063918521736060261726, +1.38342390023966562049934387025798802, +1.95581815631370800259216589320408807, +1.73146849225889824100965348462891949, +1.88160323942479552052955802262456788, +1.70613867354516950263995866187978500, +1.17811725051677264054183267503298650, +1.40776820301490777725874945880320856, +1.47540562425612333737881685700334393, +1.77818001817159255394620893764268391, +1.88592489659083283914079649124477222, +1.39755283294327894539226489711603733, +1.63930181459427268584809180173485736, +1.18266030879927831083590442260812434, +1.62204816107836702122629253705543787, +1.61161346241150201449736126952418630, +1.51930784711663588029704877224993061, +1.66148417756350329831671979421693202, +1.86135522818111826024878922441238546, +1.64525518313548726322608575349646951, +1.10625532494321101715789863181665139, +1.27382272269073036176841898481279609, +1.80847467324143841134429104184201478, +1.97577990474063300906297098745329595, +1.95565773669314514739791998137457717, +1.04909224119529991017504064015152228, +1.06716021865535093911088640019629469, +1.10908791262720532519926217597549504, +1.41563232476368490922305909387897527, +1.89973814141138245758670768834727371, +1.10923175351551434564152112234329408, +1.81606369113658432102892987400609072, +1.76805239809126905484300688547618315, +1.98141953345961013295195598542194395, +1.94061898907671389571474660426716581, +1.36869604305002803278635795661254112, +1.64104768735264599287487795613128032, +1.51512793228855628092315381204563010, +1.33542000424019218408476708063380333, +1.86713202746210787772770287615654562, +1.17554572353085181516093010043852920, +1.69834370458449240492316612917905958, +1.99097739403873465757333055909691788, +1.19948842751692130362521909009412349, +1.61166552704220279547467541891966268, +1.67087519776481304801374012584891636, +1.31643624420216895064797790401508942, +1.22451126654724041429788905810418325, +1.60938841136455842325028498451635505, +1.16821631846252618264241197138532583, +1.12075866149856614988441520269732048, +1.27282460303027235792415023093280068, +1.06398802850843896208955595564657855, +1.72917114217849634025635108042133900, +1.27178249241200843573845731631211221, +1.87005648612992776834120273841325079, +1.33486220340429476450723053137144644, +1.28935075422565700619421589861326395, +1.66687744710373896568524324994944688, +1.23847620859039513089016725568252993, +1.47324303748673595874088858629687752, +1.73402195600685946541521494487924227, +1.80879124678939837370705775601378282, +1.73034650064046894979231200735895683, +1.51581786224228979006861831994335213, +1.54318426182850189943375392499904521, +1.94238120876463205449212144929864191, +1.86504973369402601583354954372036154, +1.90122363500746495894100089271388869, +1.33206274760861703274512760541279717, +1.43475650429717945969228774856726914, +1.17037347551656725647407791654805389, +1.42271348866800947509863840167621777

402reltol = sqrt(epsilon(1._TKC))

403reltol

404+0.138777878078144567552953958511352539E-16

405isClose(data, adat, reltol = reltol)

406T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

407call setAsserted(all(isClose(data, adat, reltol = reltol)))

408

409lenData = getUnifRand(5, 100)

410lenData

411+67

412data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

413data

414(+1.22201586, +0.877125621), (+1.33537936, +0.502445519), (+1.82021308, +0.441248417E-1), (+1.51254177, +0.104967713), (+1.62238359, +0.697035432), (+1.73482871, +0.589428842), (+1.21848702, +0.681771636E-1), (+1.80032015, +0.281486332), (+1.03402722, +0.920152962), (+1.27822185, +0.795183539), (+1.16584682, +0.251537442), (+1.97488379, +0.206394434), (+1.78332257, +0.887188673), (+1.13900352, +0.303851247), (+1.73037326, +0.855720937), (+1.20218039, +0.671242654), (+1.60822368, +0.158807516), (+1.17245722, +0.657771051), (+1.45904088, +0.360727310E-3), (+1.49817491, +0.693100452), (+1.41203356, +0.997864962), (+1.96251988, +0.879109681), (+1.22030890, +0.752676189), (+1.04067111, +0.118144274), (+1.11005449, +0.269406378), (+1.14654875, +0.646903992), (+1.71245694, +0.976787984), (+1.42327285, +0.817360520), (+1.35277200, +0.607884526), (+1.14461684, +0.415161848), (+1.42999911, +0.937525392), (+1.81830287, +0.847987413), (+1.77692258, +0.591528416E-2), (+1.21731710, +0.966908932), (+1.81528270, +0.762265563), (+1.35918760, +0.331629634), (+1.41680527, +0.509927154), (+1.39551234, +0.464314401), (+1.38730419, +0.343197346), (+1.43194163, +0.676443577E-1), (+1.36724448, +0.570379794), (+1.18449211, +0.140464544), (+1.59166002, +0.897308409), (+1.28902316, +0.923019052), (+1.75746882, +0.734327912), (+1.57125616, +0.219102502E-1), (+1.87580740, +0.232865632), (+1.69296503, +0.337569118E-1), (+1.13086796, +0.295610905), (+1.89707828, +0.543755293E-1), (+1.95291567, +0.453676045), (+1.05775583, +0.387729287), (+1.73829770, +0.344979823), (+1.59963858, +0.252873361), (+1.06636095, +0.870022178), (+1.19783235, +0.480313122), (+1.76147807, +0.157729685), (+1.11688185, +0.563419700), (+1.82583678, +0.352839231E-1), (+1.92408657, +0.616550446), (+1.27498746, +0.606383324), (+1.97725809, +0.979017437), (+1.09939170, +0.160255253), (+1.53060365, +0.876495242), (+1.62627125, +0.270879865E-1), (+1.76269376, +0.433306217), (+1.29920626, +0.193195164)

415

416adat = getFFTI(getFFTF(data))

417adat

418(+1.22201681, +0.877125621), (+1.33537948, +0.502445519), (+1.82021308, +0.441248864E-1), (+1.51254201, +0.104967572), (+1.62238383, +0.697035313), (+1.73482883, +0.589428723), (+1.21848691, +0.681771487E-1), (+1.80032003, +0.281486422), (+1.03402746, +0.920153022), (+1.27822220, +0.795183301), (+1.16584706, +0.251537591), (+1.97488379, +0.206394359), (+1.78332293, +0.887188673), (+1.13900375, +0.303851217), (+1.73037338, +0.855720997), (+1.20218027, +0.671242654), (+1.60822380, +0.158807501), (+1.17245686, +0.657770932), (+1.45904112, +0.360650796E-3), (+1.49817491, +0.693100274), (+1.41203415, +0.997865021), (+1.96252000, +0.879109502), (+1.22030866, +0.752676189), (+1.04067123, +0.118144445), (+1.11005437, +0.269406319), (+1.14654934, +0.646903872), (+1.71245718, +0.976787925), (+1.42327309, +0.817360461), (+1.35277200, +0.607884645), (+1.14461720, +0.415161878), (+1.42999983, +0.937525570), (+1.81830311, +0.847987354), (+1.77692294, +0.591541408E-2), (+1.21731734, +0.966909111), (+1.81528282, +0.762265742), (+1.35918784, +0.331629783), (+1.41680539, +0.509927094), (+1.39551294, +0.464314520), (+1.38730431, +0.343197525), (+1.43194163, +0.676445141E-1), (+1.36724460, +0.570379794), (+1.18449259, +0.140464634), (+1.59166050, +0.897308350), (+1.28902304, +0.923019052), (+1.75746906, +0.734327972), (+1.57125604, +0.219102260E-1), (+1.87580764, +0.232865512), (+1.69296563, +0.337569937E-1), (+1.13086808, +0.295610815), (+1.89707839, +0.543754473E-1), (+1.95291543, +0.453675956), (+1.05775619, +0.387729138), (+1.73829758, +0.344979703), (+1.59963882, +0.252873361), (+1.06636119, +0.870022178), (+1.19783247, +0.480313063), (+1.76147807, +0.157729760), (+1.11688232, +0.563419759), (+1.82583714, +0.352838710E-1), (+1.92408681, +0.616550505), (+1.27498722, +0.606383324), (+1.97725797, +0.979017317), (+1.09939182, +0.160255134), (+1.53060412, +0.876495063), (+1.62627149, +0.270879269E-1), (+1.76269352, +0.433306098), (+1.29920638, +0.193195269)

419reltol = sqrt(epsilon(1._TKC))

420reltol

421+0.345266977E-3

422isClose(data, adat, reltol = reltol)

423T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

424call setAsserted(all(isClose(data, adat, reltol = reltol)))

425

426lenData = getUnifRand(5, 100)

427lenData

428+19

429data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

430data

431(+1.0106451492733521, +0.59822220981511287), (+1.4140315335416387, +0.68619397009327066E-1), (+1.6374342251394913, +0.82620134123351074), (+1.7534154266740156, +0.73326712267861438), (+1.9147017233671177, +0.54359818018082162), (+1.1104262151112745, +0.81358376410004296), (+1.6825921957591710, +0.52732493848044715), (+1.0646918682992266, +0.47383260990609233), (+1.5711630526760936, +0.50192358767509604E-1), (+1.5730304773697816, +0.64049055325896465), (+1.4599131306139230, +0.60385063529606087), (+1.7663950677589910, +0.16850880643693744), (+1.6255721186544272, +0.78011168789816887), (+1.6302608437357944, +0.24386723497789531), (+1.3732366773439548, +0.57872354927982572), (+1.8741060458884418, +0.30238264186393415E-1), (+1.2737386801256392, +0.93966888767270440E-1), (+1.2075872038414408, +0.51461845165057396), (+1.2080244308378938, +0.10214008079005399)

432

433adat = getFFTI(getFFTF(data))

434adat

435(+1.0106451492733504, +0.59822220981511254), (+1.4140315335416389, +0.68619397009327288E-1), (+1.6374342251394913, +0.82620134123351074), (+1.7534154266740158, +0.73326712267861427), (+1.9147017233671175, +0.54359818018082151), (+1.1104262151112745, +0.81358376410004263), (+1.6825921957591712, +0.52732493848044726), (+1.0646918682992264, +0.47383260990609222), (+1.5711630526760931, +0.50192358767509465E-1), (+1.5730304773697803, +0.64049055325896420), (+1.4599131306139217, +0.60385063529606042), (+1.7663950677589908, +0.16850880643693730), (+1.6255721186544267, +0.78011168789816876), (+1.6302608437357942, +0.24386723497789525), (+1.3732366773439548, +0.57872354927982561), (+1.8741060458884415, +0.30238264186393367E-1), (+1.2737386801256392, +0.93966888767270246E-1), (+1.2075872038414410, +0.51461845165057396), (+1.2080244308378940, +0.10214008079005414)

436reltol = sqrt(epsilon(1._TKC))

437reltol

438+0.14901161193847656E-7

439isClose(data, adat, reltol = reltol)

440T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

441call setAsserted(all(isClose(data, adat, reltol = reltol)))

442

443lenData = getUnifRand(5, 100)

444lenData

445+31

446data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

447data

448(+1.30871220313263214040762048647398897, +0.769790040308292786331587426730383068), (+1.75533671974591008246009017671993743, +0.709800439839044096260856830165712723), (+1.90980185169803998982369628357910772, +0.390565496519833695892594275737310608), (+1.59909192412105670028481444279336675, +0.505788749782195259930779502517532875), (+1.19806161125276198937940492726655398, +0.649068479247740176304452316126150070), (+1.39956473166935953819430849470582152, +0.764847174257605611926310957994694208), (+1.37269725936244586500023881262465800, +0.735170543108677484764901085870996643), (+1.67133941901254587204627933435819540, +0.221632814833906319787728936930760311), (+1.74332599359268653671588274717051794, +0.579199728005847306390717525237108328E-1), (+1.83215466373323742953642734201216209, +0.394806099417202139874339322340091030), (+1.94297359279985433982102029597632195, +0.830151743179893008964924586314070690), (+1.16901791027435294314522238136388004, +0.373959377646987731849637947537273777), (+1.35659680731857887246745113627362341, +0.618327541243740593932960779775061639), (+1.20955107528067625061138468993300360, +0.753203613152139895585397985528377409), (+1.67555560872100600561542850215397999, +0.941874201755661836683956730943702879), (+1.95006718021490502896246926891411198, +0.864705486671798948319631378290540524), (+1.88912865801662387878043389734294656, +0.549032983820376114732694828537002744), (+1.65579062235087586694926518733445749, +0.132135043859100168403178198820406626), (+1.05866395399497120748571249339694624, +0.184751933095160905150487896948231931), (+1.71493551491065405422724395831354343, +0.356791229388550109364797458520064112), (+1.32099344598935100696585834555121668, +0.316175591767453098298122186403239832), (+1.81193352450810263258573292657632185, +0.213260014125952521320340992107562962), (+1.77336980342017762333202218993312085, +0.986708256080644376799678893883888600E-1), (+1.64991879909247282293348286706440956, +0.307653149068827752189323601070120697), (+1.10802035692190107356021781391521761, +0.731800620220963709403771803030796612), (+1.96205133984845615767382904763658969, +0.422185643774727625341699164126124444), (+1.06323809223119239176232535590650148, +0.631872113807741779264099628584872941), (+1.56553765374867033433449607707479487, +0.762349932479132003476219781380253770), (+1.11617556378781728437618853249121787, +0.182263278469516192669996393831027052), (+1.08483481187267358069749390522664334, +0.761412618440042428869462898071284997), (+1.06080472171221465586631334144111257, +0.561815292778228684091470466896523733)

449

450adat = getFFTI(getFFTF(data))

451adat

452(+1.30871220313263214040762048647398723, +0.769790040308292786331587426730382490), (+1.75533671974591008246009017671993782, +0.709800439839044096260856830165713012), (+1.90980185169803998982369628357910830, +0.390565496519833695892594275737311090), (+1.59909192412105670028481444279336732, +0.505788749782195259930779502517533164), (+1.19806161125276198937940492726655475, +0.649068479247740176304452316126150263), (+1.39956473166935953819430849470582152, +0.764847174257605611926310957994694208), (+1.37269725936244586500023881262465800, +0.735170543108677484764901085870996547), (+1.67133941901254587204627933435819501, +0.221632814833906319787728936930760311), (+1.74332599359268653671588274717051794, +0.579199728005847306390717525237107365E-1), (+1.83215466373323742953642734201216248, +0.394806099417202139874339322340090982), (+1.94297359279985433982102029597632156, +0.830151743179893008964924586314070497), (+1.16901791027435294314522238136388042, +0.373959377646987731849637947537273488), (+1.35659680731857887246745113627362321, +0.618327541243740593932960779775061832), (+1.20955107528067625061138468993300360, +0.753203613152139895585397985528377409), (+1.67555560872100600561542850215398018, +0.941874201755661836683956730943703071), (+1.95006718021490502896246926891411141, +0.864705486671798948319631378290540139), (+1.88912865801662387878043389734294598, +0.549032983820376114732694828537002262), (+1.65579062235087586694926518733445787, +0.132135043859100168403178198820406554), (+1.05866395399497120748571249339694605, +0.184751933095160905150487896948231883), (+1.71493551491065405422724395831354324, +0.356791229388550109364797458520063919), (+1.32099344598935100696585834555121687, +0.316175591767453098298122186403239832), (+1.81193352450810263258573292657632166, +0.213260014125952521320340992107562818), (+1.77336980342017762333202218993312105, +0.986708256080644376799678893883886915E-1), (+1.64991879909247282293348286706440976, +0.307653149068827752189323601070120553), (+1.10802035692190107356021781391521742, +0.731800620220963709403771803030796708), (+1.96205133984845615767382904763658988, +0.422185643774727625341699164126124492), (+1.06323809223119239176232535590650167, +0.631872113807741779264099628584873038), (+1.56553765374867033433449607707479564, +0.762349932479132003476219781380253962), (+1.11617556378781728437618853249121845, +0.182263278469516192669996393831027124), (+1.08483481187267358069749390522664411, +0.761412618440042428869462898071285575), (+1.06080472171221465586631334144111315, +0.561815292778228684091470466896524118)

453reltol = sqrt(epsilon(1._TKC))

454reltol

455+0.138777878078144567552953958511352539E-16

456isClose(data, adat, reltol = reltol)

457T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

458call setAsserted(all(isClose(data, adat, reltol = reltol)))

459

460lenData = getUnifRand(5, 100)

461lenData

462+9

463data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

464data

465+1.17714930, +1.46483088, +1.66172862, +1.29766178, +1.92291296, +1.21843553, +1.90722203, +1.24838734, +1.22463500

466

467adat = getFFTI(getFFTF(data))

468adat

469+1.17714942, +1.46483088, +1.66172874, +1.29766190, +1.92291307, +1.21843553, +1.90722215, +1.24838746, +1.22463500

470reltol = sqrt(epsilon(1._TKC))

471reltol

472+0.345266977E-3

473isClose(data, adat, reltol = reltol)

474T, T, T, T, T, T, T, T, T

475call setAsserted(all(isClose(data, adat, reltol = reltol)))

476

477lenData = getUnifRand(5, 100)

478lenData

479+35

480data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

481data

482+1.7145543799137446, +1.3052277843666789, +1.3032820833693957, +1.7316651695132099, +1.3288830248366685, +1.3223891160591301, +1.2282575119085062, +1.7844876445196682, +1.3057871537156047, +1.7394650354466989, +1.5776582491447759, +1.4116303131140726, +1.6757223762325675, +1.4343142563810567, +1.6441407176445340, +1.3340068085699728, +1.3258951087172168, +1.8600467091919617, +1.3512185195034772, +1.6180464365427205, +1.6650962753732319, +1.6206536761606705, +1.2812661496586990, +1.0652180102021096, +1.3661826197442901, +1.9142152406186181, +1.9949729493260198, +1.9543001186228439, +1.4378094203877927, +1.4094276528710341, +1.9598406155420944, +1.0729411985636959, +1.7405221381704421, +1.8401795555581444, +1.5905586365430819

483

484adat = getFFTI(getFFTF(data))

485adat

486+1.7145543799137446, +1.3052277843666786, +1.3032820833693954, +1.7316651695132095, +1.3288830248366683, +1.3223891160591303, +1.2282575119085060, +1.7844876445196678, +1.3057871537156045, +1.7394650354466989, +1.5776582491447766, +1.4116303131140726, +1.6757223762325673, +1.4343142563810569, +1.6441407176445340, +1.3340068085699723, +1.3258951087172159, +1.8600467091919617, +1.3512185195034772, +1.6180464365427201, +1.6650962753732317, +1.6206536761606696, +1.2812661496586983, +1.0652180102021094, +1.3661826197442895, +1.9142152406186186, +1.9949729493260202, +1.9543001186228439, +1.4378094203877931, +1.4094276528710341, +1.9598406155420947, +1.0729411985636956, +1.7405221381704419, +1.8401795555581442, +1.5905586365430817

487reltol = sqrt(epsilon(1._TKC))

488reltol

489+0.14901161193847656E-7

490isClose(data, adat, reltol = reltol)

491T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

492call setAsserted(all(isClose(data, adat, reltol = reltol)))

493

494lenData = getUnifRand(5, 100)

495lenData

496+78

497data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

498data

499+1.96724473452181165799638623570823388, +1.24413394754503794345781525431827042, +1.14701459817880460484408488606237419, +1.33203572482293146064239530399258526, +1.44615122218977017801070798285907900, +1.67054991919239182274590881395317696, +1.04953725948984705473204981873974132, +1.13071467559261232987084581313236607, +1.36272482581905854375166701813938475, +1.63803704591731712773891859692368124, +1.36778109054777722021570112961098542, +1.46883137309477935011948677234644192, +1.91637344106542313685420612995208191, +1.76302262198133583814106803992935125, +1.80989542567596595969574066459638899, +1.23935002506290655012215834045339633, +1.16229483069347141955604991288010472, +1.79151512098486776553241457944494398, +1.52492487354698563037196552183071424, +1.99117486854918186246783198521452470, +1.54049824132596333381624258499080440, +1.43868055411763175567304421087845954, +1.48991395444413055378094105336486874, +1.37707873674492897157437445665900910, +1.64894706420504108616069841892314158, +1.08569398114435264916294392482181906, +1.59168591497717089486319264395183283, +1.65904302722644661990097479776002983, +1.56132211653577616987532779299259996, +1.82494243367051896353636785753205274, +1.14856243154088501038848420967313158, +1.27361104075374807223387712677758869, +1.28024818520094582880761364109176489, +1.44534373462878812344815320446606356, +1.67059991704788748111752161543857686, +1.63080261627358826249681683276019669, +1.97851801759286853414692385872959493, +1.12640980772224278909823455030274562, +1.00024918807160247694210577367889745, +1.08253287062009982223343578974677025, +1.12451881707467446288421201095459100, +1.49138487445109933232771524597022500, +1.67867894387711790877703237093454159, +1.50738700599810522015833842302944718, +1.71709818790962837734328147118093827, +1.36447701972443198898925211821762146, +1.98069556362905547199607573500714149, +1.99892406110869158986044266179396803, +1.86878988524925306311783883870898639, +1.86064611093201551206490727550953453, +1.10042565191527379807385835542170295, +1.71210415892243175884766337323966585, +1.34732790711913107612354355581159460, +1.59439028470838125978594737329368292, +1.62370254358081209911469746465945412, +1.33088380579460693770223614747498152, +1.50324824557210144271117216637965919, +1.35338333810989610023042093853886961, +1.11533072994217522325876182226949201, +1.16227909311072877205058667930509420, +1.99711632257517731799710819442238162, +1.35393487075902224715281249807181713, +1.67747788735662219520308815189616102, +1.73205094599113041678743395062925539, +1.26142131987861455635862013452131021, +1.42515979225180369429136915379888078, +1.32118980157657537257179621183828599, +1.08817656879052963848972687489093533, +1.42435291640036778034427820376127795, +1.17194619024267260573983389459036653, +1.27755052389120281643400541588581082, +1.32069406650860158225263188840444676, +1.31540427210512856425597690484680976, +1.41809909579330172902024746346896340, +1.07830074754502190132624244248753220, +1.82166977234326059111900748883367786, +1.08630175557716350779282665482879789, +1.55706263083204690888365771286208167

500

501adat = getFFTI(getFFTF(data))

502adat

503+1.96724473452181165799638623570823349, +1.24413394754503794345781525431827023, +1.14701459817880460484408488606237419, +1.33203572482293146064239530399258526, +1.44615122218977017801070798285907900, +1.67054991919239182274590881395317638, +1.04953725948984705473204981873974171, +1.13071467559261232987084581313236607, +1.36272482581905854375166701813938533, +1.63803704591731712773891859692368105, +1.36778109054777722021570112961098542, +1.46883137309477935011948677234644192, +1.91637344106542313685420612995208095, +1.76302262198133583814106803992935029, +1.80989542567596595969574066459638841, +1.23935002506290655012215834045339633, +1.16229483069347141955604991288010453, +1.79151512098486776553241457944494321, +1.52492487354698563037196552183071501, +1.99117486854918186246783198521452431, +1.54049824132596333381624258499080402, +1.43868055411763175567304421087845954, +1.48991395444413055378094105336486874, +1.37707873674492897157437445665900929, +1.64894706420504108616069841892314081, +1.08569398114435264916294392482181867, +1.59168591497717089486319264395183187, +1.65904302722644661990097479776002945, +1.56132211653577616987532779299259880, +1.82494243367051896353636785753205158, +1.14856243154088501038848420967313178, +1.27361104075374807223387712677758888, +1.28024818520094582880761364109176585, +1.44534373462878812344815320446606356, +1.67059991704788748111752161543857763, +1.63080261627358826249681683276019727, +1.97851801759286853414692385872959320, +1.12640980772224278909823455030274542, +1.00024918807160247694210577367889610, +1.08253287062009982223343578974677006, +1.12451881707467446288421201095458985, +1.49138487445109933232771524597022345, +1.67867894387711790877703237093453966, +1.50738700599810522015833842302944699, +1.71709818790962837734328147118093750, +1.36447701972443198898925211821762127, +1.98069556362905547199607573500714091, +1.99892406110869158986044266179396630, +1.86878988524925306311783883870898696, +1.86064611093201551206490727550953453, +1.10042565191527379807385835542170334, +1.71210415892243175884766337323966566, +1.34732790711913107612354355581159479, +1.59439028470838125978594737329368350, +1.62370254358081209911469746465945316, +1.33088380579460693770223614747498094, +1.50324824557210144271117216637965842, +1.35338333810989610023042093853886922, +1.11533072994217522325876182226949144, +1.16227909311072877205058667930509343, +1.99711632257517731799710819442238239, +1.35393487075902224715281249807181732, +1.67747788735662219520308815189616064, +1.73205094599113041678743395062925520, +1.26142131987861455635862013452131040, +1.42515979225180369429136915379888078, +1.32118980157657537257179621183828522, +1.08817656879052963848972687489093495, +1.42435291640036778034427820376127718, +1.17194619024267260573983389459036673, +1.27755052389120281643400541588581044, +1.32069406650860158225263188840444618, +1.31540427210512856425597690484681033, +1.41809909579330172902024746346896340, +1.07830074754502190132624244248753278, +1.82166977234326059111900748883367767, +1.08630175557716350779282665482879789, +1.55706263083204690888365771286208187

504reltol = sqrt(epsilon(1._TKC))

505reltol

506+0.138777878078144567552953958511352539E-16

507isClose(data, adat, reltol = reltol)

508T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

509call setAsserted(all(isClose(data, adat, reltol = reltol)))

510

511

Test:: test_pm_fftpack

Final Remarks ⛓

If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.

If you use any parts or concepts from this library to any extent, you must acknowledge the usage by citing the relevant publications of the ParaMonte library.
If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library, you must also ask the end users to cite this original ParaMonte library.

Copyright: Computational Data Science Lab

Author:: Fatemeh Bagheri, Tuesday 11:34 PM, August 10, 2021, Dallas, TX

Definition at line 1567 of file pm_fftpack.F90.

The documentation for this interface was generated from the following file:

/home/amir/git/paramonte/src/fortran/main/pm_fftpack.F90